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Chapter 1 


Introduction 


When siting antennas on large structures, it is desirable to be able to quickly determine the 
clear line of sight transmission or reception paths for the antennas. If the structure under 
consideration is a space station, there will be many antennas to consider in an environment 
composed of a very large and complex array of living and working module, solar panels, 
and support structures. The antennas will potentially need to communicate with systems 
anywhere around the near zone of the structure and the complete far zone sphere. In short, 
a challenging problem. 

In order to aid the antenna design engineer in the prediction of the near and far zone 
antenna patterns, antenna to antenna coupling, and radiation hazard considerations, for 
high frequency antennas in a complex environment, a couple of user oriented computer 
codes have been developed: the NEC - Basic Scattering Code (NEC-BSC) (1,2] and the 
Aircraft Code (NEWAIR) [3]. Both codes are based on the Uniform Geometrical Theory 
of Diffraction (UTD) (4], which is a high frequency ray optical method with corrections at 
shadow boundaries. The UTD is ideal for construction of efficient computer codes, such as 
these, for modeling the scattering from large structures. The NEC-BSC and NEWAIR are 
complementary codes, that is, the NEC-BSC is used when the antennas are not mounted 
on a curved surface, and the NEWAIR is used when the antennas are mounted on a curved 
surface. Both codes use plates to model flat structures, the NEC-BSC presently uses finite 
elliptic cylinders to model curved surfaces, and the NEWAIR presently uses ellipsoids. 

Although the two UTD codes are presently very useful for predicting the performance 
of antennas in a complex environment, such as a space station, there are a few important 
consideration that should be taken into account. First, the present versions of these codes 
were not specifically developed for a space station application. The NEC-BSC was developed 
for ships and the NEWAIR for aircraft. Second and most importantly, even though they 
run fast for large size structures in terms of a wavelength, as compared with computer codes 
using other theories, such as method of moments; a problem with as many structural pieces 
as a space station can take a very long time to calculate a volumetric pattern. This means 
that the problem of antenna siting in a large structural environment should be viewed as a 
multiple stepped procedure to optimize results for minimum time and cost. 

The design procedure for antenna siting can be viewed as a three step process, as far as 
the computer codes are concerned. First, it can generally be assumed that a good antenna 
location will provide a clear line of sight path between transmitter and receiver over the 
desired range of operation. This can best be accomplished using a obscuration code, which 



is the goal of this computer code and document* This code will provide a volumetric shadow 
map of the projected shadow of a structure onto the far zone sphere centered at the antenna 
location. It is very fast running on space station applications and can be run interactively 
providing nearly immediate answers depending on the overall useage of the computer. 

Second, a worst case code could be developed that will predict not only the clear line 
of sight regions, but will also map out the maximum values of the various field terms, such 
as the reflected and diffracted lobes. These scattered fields can cause undesired lobes to 
show up in the region of interest. This type of code will not only provide an answer to 
the question of where the optimum location for an antenna system should be, but also 
how it should be oriented at that position and what the gain and side lobe levels would be 
optimum. It can be designed to run at a little additional time cost over the obscuration 
code. 

The final step would be to run a field prediction code such as the NEC-BSC and 
NEWAIR codes or their future versions optimized for the space station. This would be 
the confirmation phase of the design procedure to make sure that no surprises occur in the 
volumetric patterns. At this stage, it does not matter that the codes take a little longer to 
run, especially for the wealth of information that they produce. Of course, these results can 
be used to compare with measured results on scale models to validate the measurements 
and vice versa. 

This document is concerned with the obscuration code, referred to here as “SHADOW” . 
It has been specifically design with space station applications in mind. It directly solves 
for a shadow map by projecting the border of multiple sided flat plates and composite cone 
frustums of elliptic cross section onto the far zone sphere. It then fills between the borders 
based on a pixel resolution and window size specified by the user. The definition of the 
geometry is based on a subset of the command word input system used for the UTD codes. 
This means that as the engineer proceeds through a design scenario progressing through the 
different levels of codes, there will be a minimum amount of conversion of input information. 

The obscuration code has proven to be so efficient, that it was felt that it could be of great 
benefit to the design engineer to be able to run it in an interactive mode. Unfortunately, 
interactive procedures are not generally transportable between different computer systems. 
Because of the wide availablity of DEC VAX computers in the engineering environment, and 
because of the ease of developing an interactive system on a VAX, the interactive features 
have been developed using devise dependent software for the VAX. The non-interactive and 
interactive parts of the code have been kept separate, however, so that the code can be run 
non-interactively without much change. 

This document is divided into two parts. Part I is a user manual, that treats the code 
more or less as a black box device. It is about all that will be need for the average user to 
get started and obtain results. Chapter 2 describes the method that is used to obtain the 
shadow. The overall view of the operation of the code is given in Chapter 3. It describes 
the non-interactive and interactive commands in a qualitative way. A dictionary of all the 
non-interactive commands needed in the SHADOW code is given in Chapter 4. It gives 
the details for inputting each command. Chapter 5 provides the details for the interactive 
commands. The output features are interpreted in Chapter 6. Examples on how to use the 
code are given in Chapter 7. When first learning how to use the code, it is essential to be 
able to reproduce some of these examples to be sure that the code is functioning properly 
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on your system. 

Part II of this document is a code manual. It goes into more specific information about 
the coding itself. It is of importance primarily for people implementing the code on a 
new system, for debugging errors, or for making changes in how the code operates. An 
overview of how the code is organized is given in Chapter 9. A listing of the code is given 
in Chapter 10. It is broken up into three parts for the non-interactive, FORTRAN 77 
subroutines and into the interactive VAX dependent subroutines. The implementation of 
the code on a VAX is given in Chapter 11 and a brief description of implementing the code 
on a non- VAX computer is given in Chapter 12. A listing of an NCAR plotting code for 
the shadow map is given in Chapter 13. 



Chapter 2 


Method 


The first gauge of the ability of two antenna systems to communicate with one another at 
high frequencies is to determine if there is a clear line of sight path between them. This 
can be conveniently represented by a map of the projected shadow on the far zone sphere 
caused by the structures around an antenna’s environment. One method of producing a 
shadow map is to choose an observation point on the far zone Bphere and then determine 
if anything obscures the path and then move on to the next point. This method is slow,, 
however, because there must be many repeated tests on the same blocking structures for 
the various observation point making up the shadow map. 

In order to have quick turn around for antennas mounted on large structures, it is 
desirable to use a method that will directly produce the shadow projected onto the far zone 
sphere. This can be accomplished in a two step process. First the outside boundary of each 
individual piece making up the structure can be transformed from the x, y, z coordinate 
system into a sequence of lines in the 6 and <p pattern coordinate system. The area of the 
shadow map between the boundary lines for each piece may then be filled by looking at the 
center location between the lines and a shadow check on that piece of the structure can be 
performed. This reduces the test on each piece of structure from once every observation 
point to a few tests every pattern cut line. The calculation time, in general, is reduced 
by about two orders of magnitude. For example, instead of taking two hours, a map can 
conservatively be produced in about one minutes or better. These numbers dependent on 
the geometry, the window size of the map, and the resolution desired. 

There are two fundamental types of structural pieces presently available for modeling 
in this obscuration code, the multiple sided flat plate and the multiple rimmed composite 
cone frustum of elliptic cross section. More than one plate or cylinder can be specified to 
build up a complex structure. A plate can be defined by the location of its corners in a 
reference coordinate system. A cone frustum can be defined by the size of its major and 
minor radii for each rim making up the composite cylinder. 

The boundary of the structures are traced onto the far zone sphere by defining a vector 
from the source position, R,, to some position along its outer boundary, Ri, such that 

R = Ri — Rj. 

In the case of the plate, the boundary is defined by some location along its edges, as illus- 
trated in Figure 2.1. This vector can then be transformed into the pattern cut coordinate 
system, since the pattern may be defined relative to a different set of axes. The vector can 
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then be transformed onto the two dimensional far zone sphere by 

8 = arctan {ft ■ Rjz * R ^ 

and 

<f> = arctan ^y • R/x • R^j . 

The position of the vector along the edge is defined by starting at a corner and then 
incrementing the edge in steps of 8t along the edge. In order to provide the most efficient 
performance and the best image of the shadow on the map, it is necessary to define St as a 
function of the chosen resolution desired for the map, Ba } the distance, R, from the source 
to the edge point and the relative position of the projected shadow point with respect to 
the polar caps, the Greenland effect . 

The resolution, 8a is chosen to be the minimum of the two specified incremental values 
of 8 and <f > . The distance R is defined as JR = |jR* — Jfc|. Assuming that the resolution 
increment is small and the distance is relatively large, the value of the edge increment is 
given by 

8t = SaRsinB. 

The new edge point then becomes 

Ri+i = Ri + 8te } 

where e is the edge vector pointing from the first corner to the second corner making up 
the edge. 

The composite cone frustum can be done in the same way as the plate. In fact the end 
caps can be defined as plates with curved edges and the curved surfaces are added as edges 
whose corners are the tangent points illustrated in Figure 2.2. 

Once a give plate or cylinder outer boundary is transformed onto the shadow map and 
stored in pixels of the desired resolution, the fill process can begin. The pixel array is 
considered one row at a time in a scanning operation from the one range of theta embodied 
in the pixel array to the other. The direction of the scan and the order in which rows are 
scanned is arbitrary. The fill process is the same for each scan line in the pixel array so 
that no logical interaction between lines takes place. The process is similar to the way in 
which a television paints pictures one row at a time on the screen. As the scan proceeds 
say from left to right, unlit pixels between object boundaries on the line which correspond 
to regions in the interior of the object are turned on creating an area fill. The decision to 
light a group of pixels on a given row is not made by testing each pixel individually for 
obscuration but by making a single test between the pixels which represent boundaries of 
the projected regions. In this way, only a single test is made to determine whether a whole 
group of pixels represent the interior or exterior of a region. This is one major key to the 
sizable reduction of processor time achieved. 

The shadow test for a plate is made by first projecting the vector chosen at the mid 
point of the scan line, r, onto the plane of the plate to find its intersection point, as shown 
in Figure 2.3, that is 

n ■ {R, - C l 

A A 

n • r 


Rt — Rs 
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Figure 2.3: Intersection of observation direction vector with plate. 


Now, using an idea based on Cauchy’s formula from complex variables, that is, 

i f(z) dz= l °’ . n °P° leinf ( z ) 

Jc J | 27 rj, one pole in f(z) 

the intersection point can be tested to see whether or not it falls within the limits of the 
plate. This is illustrated in Figure 2.4. 

It is easy to show that 


0 m = arctan 


•j 

(Cm - Rt) X (C m+1 - Rtj 

* n 


(Cm - Rt) • (C m+1 - Rt 

) 


which leads to the test, if 


{ < 7 r, no hit occurs 
> 7r, a hit occurs 

The end caps of the cone frustum cylinders can be done in the same way, by projecting 
the hit point in the plane of the end cap. The hit point distance can be tested from the 
center of the disk to see if it falls within the finite limits of a disk to simplify things a little. 
The curved surface test is a different matter, but still quite easy to accomplish. A vector 
on the surface of the cone frustum can be represented as 

R c = R + R b 


M 


£*« = 


m=l 


or 

R c = (ftcos^sin0 + x,) 2 x+ (ftsin^sin0 + y t ) 2 y + (ftcos0 + z,) 2 z. 

The geometry is illustrated in Figure 2.5. The point defined by R e should satisfy the 
equation for a cone, that is, 


(ft cos# + x 4 ) 2 (ftsin^sin0 + t/ 4 ) 2 


a 2 

3 


+ 




— Ay (fi cos 0 + z s ) = 0 


where 


Ay (.ft cos 0 + z,) = 


1 -f tan0y(ftcos0 + z t - Zy) 


The distance R is unknown in this equation, since we know the direction to the observer, 0 
and <f>, but not the distance to the hit point. We can solve for R, however, from the above 
equations using 

aft 2 + 2/3 R + 7 = 0, 

where 

cos 2 <f> sin 2 0 sin 2 6 sin 2 0 tan 2 0,- cos 2 0 

a = 5 + n » 

a t 

x > cos <f > sin 0 y 4 sin <f > sin 0 % 

P = 2 ’ d T2 tan0ycos0Ay(z 4 ), 

Oy fty 
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(a) RAY HITS PLATE 


m + I 



POINT 


(b) RAY DOES NOT HIT PLATE 

Figure 2.4: The geometry for deciding whether a ray does or does not hit the plate. 
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and 



If the value of R is real, then the hit point is on the finite cone frustum and therefore the 
ray from the source to observer is shadowed. If the actual hit point is desired it should be 
noted that there are two values found from this equation, and that the right "hit point can 
be found from the one representing the shortest distance. If the value of R is imaginary, 
however, this indicates that the hit point is off the real boundary of the cone frustum and 
therefore the ray is not shadowed. If R is real, an additional test must be made to decide 
whether the hit point in between the finite length bounds of the frustum. 

The basic theory discussed here is rather straight forward. The implementation, of 
course, requires a lot of other considerations to be user friendly and as general purpose as 
possible. The next chapter will go into more detail about how the code interfaces with the 
operator. 
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Chapter 3 


Principle of Operation 


3.1 Overview 


The Obscuration Code is intended to be an efficient means of determining the clear line 
of sight path for an antenna mounted in a complex environment. This code produces a 
shadow map of the geometry for a given source location. The configuration is defined using 
a command word system as discussed below. The geometry of the structure is defined by 
using plates and cylinders. It is thought that the obscuration code is just one step in a 
total evaluation scheme. The next step would be to either look at a “worst case” map that 
projects the location of the maximum lobes on to a volumetric map or to calculate the fields 
using a code like the NEC-BSC. In any case, the real fields should be calculated as the final 
step whether an intermediate one is used or not. For this reason, the geometry definition 
is based on the NEC-BSC code method of inputting information. 

The obscuration code, however, is a very efficient means of providing a shadow map. 
It can be run in a matter of minutes or less for a given shadow map. It is, therefore, felt 
that it can be most efficiently run interactively, that is with the user sitting at a terminal 
changing antenna locations, looking at the resultant maps, deciding where to try the next 
antenna location until the desired optimum spot is found to achieve a given performance. 
For this reason the code has been developed in two pieces. One is a standard FORTRAN 
77 part that does the essential shadowing calculations. The second is an interactive part 
that allows the user to change the source locations and window size without leaving the 
code. Unfortunately, this second part of the code is by nature device dependent. This 
part has been written for the DEC VAX series of computers using version 4 of VMS. It 
uses system handlers for defining the commands discussed in the sections below for the 
interactive commands and the keypad mode. The keys on the keypad of VT100 or VT200 
series terminals can be used to represent the typed commands. This will simplify the use 
of the code by reducing the amount of typing necessary. 

This chapter tries to give a brief overview of the specifics needed to run the code by 
treating it as a black box. It is intended to just get the user comfortable with the overall 
philosophy of the obscuration code. 



3.2 Modeling the Structures 

The building blocks available for the obscuration code are composed of pieces that are an 
extension of version 2 of the NEC-BSC [l] . Structures can be modeled using multiple sided 
flat plates and multiple rimmed cone frustum cylinders. The plates can be used individually 
to model things like solar panels or together to form box like structures to model things like 
the mast, etc. The cone frustums are a new feature here, and can be handy for modeling 
living modules, etc. Examples of space station models are given in Chapter 7. 

Unlike the NEC-BSC, there are no real restrictions on how these structures are defined. 
Since the code just looks at each defined piece of the modeled structure individually, casts its 
shadow, then moves on to the next piece, it does not have to properly account for the wedge 
angles and other geometrical features needed in field calculations in the NEC-BSC. If one is 
setting up a model, however, it still might be useful to use the same modeling considerations 
as the NEC-BSC, such as defining the corners of a plate so the normals point in the region 
of space in which the source is located. It is assumed that the obscuration code phase of the 
design procedure will be followed by calculating the fields for the antenna on the structure 
using a code such as the NEC-BSC. 

The number of plates and cylinders that can be used in the models is dictated only by 
the size of the dimensions implemented in the array for defining the geometry in the code. 
For convenience, these parameters are located in one file in the code so they only need to 
be changed in one spot. The details are given in Part II. 

More information on how models are to be constructed are given in the section below 
on the non-interactive commands and in Chapter 4 where these commands are defined in 
more detail. 


3.3 Running the Code 

The first step of course is to get the code implemented on your system. The details of how to 
accomplish this are given in Part II. In order to use the full interactive features of the code, 
it is necessary to use the code on a DEC VAX. Many of the interactive features use VAX 
dependent implementations from version 4 of the VMS operating system. The code has 
been divided into standard FORTRAN 77 files and VAX dependent files, however, so that 
the code can be used without the interactive features on other systems. A slightly different , 
main program needs to be used as provided in Part II. In addition, the non FORTRAN 
77 INCLUDE statement has been used in the non interactive file. Many systems have this 
feature, so it wets left in as a convenience. If the user system does not, it is easy to remove 
by hard wiring the lines in the appropriate file in place of the INCLUDE statement. Most 
of the information, here, will assume that the full features of the code will be able to be 
used. 

The first step in using the code is to create a file that contains the basic structure 
definitions using the non-interactive commands discussed in the next section. The command 
defining the source location and window size of the shadow map can also be defined in this 
input file or added and changed in the interactive session. Of course, if you are running 
non-interactively, then all the data must be input from the input file. 

Once the input file has been created or chosen from some stored files, the obscuration 



code can be executed. It will read the input file from logical unit #5. An interactive 
command allows the user to connect the chosen input file to this logical unit number. The 
code then proceeds to read the input information and produce an output that is sent to 
the terminal (logical unit #6) representing how the code has interpreted the input. In this 
process, it is converting all the input into a standard reference coordinate system and into 
a common set of units which is meters. If there is a typographical error or other error in 
the input set the code will indicate so and stop execution at that point. 

If the code completes the input, it will wait for the next instruction. For example, the 
output file name can be connect to the logical unit which is #7 for the line printer output 
and logical unit #10 for the plotter output. The antenna position can now be defined or 
modified and the desired window changed. The code can than be told to proceed to produce 
a shadow map. 

When the code has completed the shadow calculation, the user can change the source 
location, the window of the map, or input another structure and run the code again; or he 
can print the map out. The map is an array of pixels (doubly dimensioned character array) 
that are in general either a blank representing a clear path or a character representing a 
blocked path. The character is normally a uniform character such as an “X". There is an 
option to tag a particular plate with a character that you define, or the code will letter each 
plate and cylinder separately. This is useful to determine which plates get in the way or for 
debugging purposes. More details on this will be given in Chapter 6. 

3.4 Non-Interactive Commands 

The non-interactive commands needed in this code are a subset and a slight extension of 
those used in version 2 of the NEC-BSC [1], The total list of the available non-interactive 
commands are given in Table 3.1. Only the commands of interest to the obscuration code 
are defined in this manual. The rest can be found in reference [l] or in later reports and 
manuals for newer versions of the codes. This section is intended to give the user a brief 
overview of the specific commands of interest with the details coming in the next Chapter. 

The input commands words are intended to make it convenient for the user to define 
the geometry of the structure without having to define information not needed or repeat 
information already defined. They are two letter pairs. The rest of the characters on a 
command word line can be used for comments, since only the first two letters are interpreted. 

There is a place in the code to place default data that will be present without a call 
to the command. This is convenient when a specific resolution sized of the shadow map is 
desired as a default, for example. The default window can be initial theta angles of 0 to 
180 in steps of 2 degrees and initial phi angles of 0 to 360 in steps of 2 degrees by defining 
the proper variables in this default section. A call to the VF command will over ride this 
data if it is specified in the input set. 

The geometry information is by default assumed to be in meters in a definition coor- 
dinate system that is initially the reference coordinate system. The units can be changed 
using the UN command to either inches or feet or back to meters again. Once the UN 
command is specified all information after that command is assumed to be in those units 
unless changed by another call to UN. There is also provision for using any conversion fac- 



COMMAND 


BP 


CC 


CE 


DEFINITION 


back or bistatic scatter 


cone frustum geometry 


last or only comment 


cylinder geometry 


comment card 


end execution 


swept frequencies 


frequency 


infinite ground plane 


range gate 


line printer output 


LOCATION 


pg 24 


pg 30 or (1] 


pg 27 or 1] 


pg 30 or 1] 


pg 30 or [1] 


[ 1 ] 


1 


pg 31 or (1 


not documented 


next set of cylinders 

pg 32 or 1 

no ground plane 

pg 32 or (lj 

next set of plates 

pg 32 or [1] 

next set of receivers 

[1] 

next set of sources 

pg 32 or (1) 

next problem 

pg 32 or (lj 

far zone pattern cut 

[11 

far zone cut (non integer) 

not documented 

plate geometry 

pg 33 or (1) 

near zone pattern cut 

jl] 

plotter output 


gain or coupling factors 

(1 

receiver array geometry 

1 

far zone range 

1 i 1 

receiver geometry 

[1 

NEC-MOM receiver input 

1 

rotate-translate geometry 


source array geometry 

(1] 1 

source geometry 

pg 38 or (1) 

NEC-MOM source input 

[1] 

test options 

[1] 

model scale factor 

pg 42 or [lj 

units of geometry 

pg 42 or (lj 

units of source size 

HI 

volumetric cut (integer) 

not documented 

volumetric far zone cut 

pg 44 

volumetric near zone cut 

not documented 

volumetric plotter output 

not documented 

execute code 

pg 47 or (1) 


Table 3.1: Table of non-interactive commands. 
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tor desired. It is input using the UF command and is a scale factor multiplying times all 
the input dimensions in whatever unit have been defined. The code then takes the input 
information and changes it internally and stores it in meters, in order to have a uniform 
system in which to operate. The input dimensions and the internal dimensions are output 
in the feed back print out sent to a file so the user can see what happened. The dimensions 
of the source itself, that is length and width not its position, is handled with a default of 
wavelengths. This can be changed with the US. The length and width of the source is not 
important in this code so it can be ignored here. 

The reference coordinate system is really whatever is convenient for the user. The 
definition coordinate system is the same as this initial reference system or it can be changed 
using the rotate translate command RT. The RT command allows allows the user to relocate 
the origin and orientation of the definition coordinate system with respect to the reference 
coordinate system. The definition system stays as defined for all subsequent geometry input 
until it is changed. The RT command’s definition is always referenced to the reference 
coordinate system NOT to itself, that is, one does not put in inverse locations and angles 
to undo the command, but resets it to the zero position of the origin and the z-axis and 
x-axis of the reference coordinate system. Note that all angles are assumed to be input in 
degrees. The coordinate axes are input in a uniform way through out the code by treating 
the new axes vectors as if they were radial vectors in the system being used. That is the 
z-axis is defined using a theta and phi angle relative to the reference coordinate system in 
the RT command and likewise the x-axis is treated as a radial vector. The y-axis is defined 
by a cross product between the x and z axes. The code checks that the x and z axes were 
defined orthogonal to one another. If not an error message will result and the code will 
stop. 

The geometry commands are the PG command for the plates, the GP command for the 
infinite ground plane, the CG command for an elliptic cylinder, and the CC command for 
the cone frustum cylinders. The plates are defined by inputting the number and location of 
their corners in the definition system. The ground plane is defined as a infinite plane lying 
in the x-y plane of the definition coordinate system. The elliptic cylinder definition is base 
on the location of its origin and the orientation of its z- and x-axes relative to the definition 
coordinate system. In addition, the radius along its cylinder x-axis and the radius along its 
cylinder y-axis, along with the z-axis position and angular orientation of its end caps are 
needed. The cone frustum’s definition is similar except that the number of rims making up 
the cylinder need to be specified and the orientation of the rims does not, since they can’t 
be cut at an angle as in the elliptic cylinder case. For the plates and cylinders the code 
automatically adds up the number of calls to the commands and counts that as the number 
of plates or cylinders specified. Only one infinite ground plane can be defined. 

The location of the sources are specified by their location, type, orientation, and relative 
weights using the SG command. Only the location information is important to the obscura- 
tion code. Each source specified is automatically counted and remember as the number of 
sources. Unlike the plates and cylinders, the obscuration code only calculates one source at 
a time for a shadow map. In non-interactive mode, it does one source at a time producing 
a map for each. In interactive mode, it takes the first one as the default source and then 
each subsequent one needs to be interactively input. Receivers are not recognized by the 
shadow code, so if in reality you are studying a receiver, it must be input as a source not a 



receiver for shadowing purposes. 

In order to negate already defined commands for the geometry which is automatically 
increasing their number, a series of commands have been implemented. The plates can be 
reset to zero using the NP command. The ground plane with NG, the cylinders with NC, 
the sources with NS, and the entire run can be reset with the NX command/ 

The code is told to go and execute the interactive mode if it is available, or to go and 
execute the shadow calculations if the interactive mode has not been implemented using 
the XQ command. The EN command tells it to exit back to the operating system. 

The next section will discuss an overview of the interactive commands and examples of 
these commands are given in Chapter 7. 


3.5 Interactive Commands 

The interactive commands provided by the code under VMS are designed to allow easy 
specification of commonly changed parameters with a syntax which is well-known to users 
of VMS, the DCL command interpreter syntax. To acquaint the reader with the appearance 
of these commands, they are summarized below. Detailed descriptions of each command 
complete with examples can be found in the Chapter 5 on interactive commands. A list of 
the available interactive commands are given in Table 3.2. 

There are interactive commands to allow the user to control the operation of the code 
or to change or view the geometry. The SHADOW command produces the shadow map. 
The HELP command gives a descriptions of the commands. The EXIT command exits the 
user back to the operating system. The SPAWN command allows the use of DCL command 
while the user is still in the shadow code. 

The rest of the commands either allow the user to change the geometry, with the SHOW 
commands, or see the present status of the geometry, with the SET commands. Most of 
them have a non-interactive command to which they are at least somewhat associated. The 
SET UNITS command allows the units of the antenna location to be chosen, similar to 
the UN command. The SET SCALE-FACTOR command is like the UF command, which 
allows an arbitrary scale factor for the geometry to be chosen. The SET COORDINATES 
command allows the definition coordinate system to be change, like in the RT command. 
The SET ANTENNA command enables the user to interactively specify the antenna lo- 
cation in the definition coordinate system. It is related to the SG command. The SET 
PATTERN -CUT command allow the user to specify the orientation of the pattern coor- 
dinate system in the reference coordinate system. The SET WINDOW command enables 
the initial, final and incremental angles of the shadow map to be specified. These two 
commands are related to the VF command. 

The next four commands do not have non-interactive commands to which they are 
related. The SET INPUT command allows the user to specify what file containing the non- 
interactive commands is to be read. The SET OUTPUT command enables the specification 
of which output files are to be assigned and their names. The SET FILL-CHARACTER 
command allows the user to define the symbols that are used for the plate and cylinder 
shadows. The SET KEYPAD-MODE command enables the VT100 keypad to be used 
for command definitions as is discussed in the next section, otherwise, the keypad can be 
used for numerical input. These four commands are discussed much more thoroughly in 



Chapter 6. 


3.6 Keypad Use 

The definable keypad functions are available for the interactive version of the code only. The 
keypad definitions are made possible through the use of an integrated VMS screen/terminal 
management package called SMG. It is a collection of runtime library routines which perform 
terminal I/O and intercept the special sequences transmitted by the keypad keys. When 
one of these keys are pressed, the text definition associated with the key is substituted onto 
the command line. All of this I/O is transparent to the user so that he need only worry 
about making the initial keypad definitions. For more information about SMG, the reader 
is referred to the VMS runtime library reference manual. 

The keypad definitions are initialized by a text file containing suitable “DEFINE/KEY” 
commands. The file is called SHADOW. KPD and must reside in the default directory of 
the user running the code. There is a template file provided with the code which may 
be customized by the user. The predefined definitions of the VT100 keypad are shown in 
Table 3,3. Note that the “gold” enables the lower case action in the top row, that is, in 
most case the “SHOW” operation instead of the “SET” operation. 



COMMAND 

LOCATION 

EXIT 

Page 49 

HELP 

Page 50 

SPAWN 

Page 54 

SET ANTENNA.LOCATION 

Page 56 

SET COORDINATES 

Page 58 

SET FILL-CHARACTER 

Page 59 

SET INPUT-SET 


SET KEYPAD-MODE 


SET OUTPUT 

Page 64 

SET PATTERN-CUT 

Page 66 

SET SCALE-FACTOR 

Page 67 

SET UNITS 

Page 68 

SET WINDOW 

im 

SHADOW 

Page 52 

SHOW ANTENNA-LOCATION 

Page 71 

SHOW COORDINATES 

Page 72 

SHOW FILL-CHARACTER 

Page 73 

SHOW INPUT-SET 

Page 74 

SHOW KEYPAD-MODE 

Page 75 

SHOW OUTPUT 

Page 76 

SHOW PATTERN-CUT 

Page 77 

SHOW SCALE-FACTOR 

Page 78 

SHOW UNITS 

Page 79 

SHOW WINDOW ! 

Page 80 


Table 3.2: Table of interactive commands. 




































PFl 

PF2 

PF3 

PF3 




nokeypad 


' 


SET 

gold 

HELP 

SHADOW 

KEYPAD 

7 

8 

9 

- 

show 

show 

show 

show 

SET 

SET 

SET 

SET 

OUTPUT 

INPUT 

ANTENNA 

WINDOW 

4 

5 

6 

f 

show 

show 

show 

show 

SET 

SET 

SET 

SET 

SCALE 

UNITS 

COORD 

PATTERN 

gmm 

2 

3 

Enter 


/cylin 

show 



FILL 

FILL 


■il 

/PLATE 

l 

/SEQUEN 

RETURN 

0 


• 


SPAWN 

EXIT 



Table 3.3: VT100 keypad for SHADOW interactive commands. 















Chapter 4 


Non-Interactive Commands 


The non interactive commands discussed in this chapter are a subset of the commands used 
for the NEC-BSC2. The shadow code will recognize the entire set of NEC-BSC2 commands 
plus a few new ones. The new commands and some of the old ones that are pertinent to 
this code will be described here. The following sections define in detail each command word 
and the variables associated with them. This chapter is organized in alphabetical order of 
the commands. It is intended to be used as a reference for the user. Chapter 7 will give 
specific examples using this input method. 

The method used to input data into the computer is presently based on a command 
word system. This is especially convenient when more than one problem is to be analyzed 
during a computer run. The code stores the previous input data such that one need only 
input that data which has to be changed from the previous execution. Also, there is a 
default list of data so for any given problem the amount of data that needs to be input has 
been shortened. The command word options presently available are listed in Table 3.1 on 
page 16. The colon after the command word is not necessary and is sometimes used just 
to illustrate the separation between the command word and the space where comments can 
be inserted. 

In this system, all linear dimensions may be specified in either meters, inches, or feet 
and all angular dimensions are in degrees. All the dimensions are eventually referred to a 
fixed cartesian coordinate system used as a common reference for the source and scattering 
structures. There is, however, a geometry definition coordinate system that may be defined 
using the RT command. This command enables the user to rotate and translate the co- 
ordinate system to be Used to input any selected data set into the best coordinate system 
for that particular geometry. Once the RT command is used all the input following the 
command will be-in that rotated and translated coordinate system until the RT command 
is called again. See below for more details. There is also a separate coordinate system that 
can be used to define a pattern coordinate system. This is discussed in more detail in terms 
of the VF command. 

It is felt that the maximum usefulness of the computer code can be achieved using it on 
an interactive computer system. As a consequence, all input data are defined in free format 
such that the operator need only put commas between the various inputs. This allows 
the user on an interactive terminal to avoid the problems associated with typing in the 
field length associated with a fixed format. This method also is useful on batch processing 
computers. Note that all read statements are made on unit #5, i.e., READ(5,*), where 



the symbol refers to free format. Other machines, however, may have different symbols 
representing free format. 

In all the following discussions associated with logical variables a “T” will imply true, 
and an “F” will imply false. The complete words true and false need not be input since most 
compilers just consider the first character in determining the state of the logical variable. 



4.1 Command CC: Cone Frustum Geometry 

This command enables the user to define the geometry of the finite elliptic conical cylinder 
structures to be considered. The geometry is illustrated in Figure 4.1. One call to this 
command defines one cylinder. The number of cylinders in the structure are automatically 
counted by the number of calls to this command. 


READ: (XCL(N,MC),N=1,3) 

where 

XCL(N,MC) This is a doubly dimensioned real variable. It is used to spec- 
ify the location of the origin of the MCth elliptic cylinder relative to the 
definition coordinate system. It is input on a single line with the real num- 
bers being the x,y,z coordinates of. the origin which correspond to N=l,2,3, 
respectively. 


READ: TCLZ, PCLZ, TCLX, PCLX 

where 

TCLZ, PCLZ These are real variables. They are input in degrees as spherical 
angles that define the 2 c -axis of the cylinder coordinate system as if it was 
a radial vector in the definition coordinate system. 

TCLX, PCLX These are real variables. They are input in degrees as spherical 
angles that define the i c -axis of the cylinder coordinate system as if it was 
a radial vector in the definition coordinate system. 

Note that the new x c -axis and z c -axis must be defined orthogonal to each other. 

The new y c -axis is found from the cross product of the x c - and z c -axes. 

READ: NEC(MC) 


where 

NEC(MC) This is a dimensioned integer variable which defines the number of 
edges the conical cylinder has. 


READ: AC(NC,MC), BC(NC,MC), ZC(NC,MC) 

where 



AC(NC,MC) This is a double dimensioned real variable which defines the 
radius of the NCth rim on the i c -axia of the MCth elliptic cylinder. 

BC(NC,MC) This is a double dimensioned real variable which defines the 
radius of the NCth rim on the y e -axis of the MCth elliptic cylinder. 

ZC(NC,MC) This is a double dimensioned real variable which defines the z 
position of the NCth rim along the z c -axis of the MCth elliptic cylinder. 

Note that the program will keep increasing the number of cylinders in the solution by the 
number of calls to this command unless the NC or NX commands are called to reinitialize 
the cylinder geometry. Also, the ellipticity of a conical structure should remain the same 
for the entire length of that structure. The most positive rim should be defined first until 
all NC rims are defined in descending order. 
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Figure 4.1: Definition of finite cylinder geometry composed of cone frustum segments with 
elliptic cross section. 
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4.2 Command CG: Cylinder Geometry 

This command enables the user to define the geometry of the finite elliptic cylinder struc- 
tures to be considered. The geometry is illustrated in Figure 4.2. One call to this command 
defines one cylinder. The number of cylinders in the structure are automatically counted 
by the number of calls to this command. 


READ: (XCL(N,MC),N=1,3) 


where 

XCL(N,MC) This is a doubly dimensioned real variable. It is used to spec- 
ify the location of the origin of the MCth elliptic cylinder relative to the 
definition coordinate system. It is input on a single line with the real num- 
bers being the x,y,z coordinates of the origin which correspond to N=l,2,3, 
respectively. 


READ: TCLZ, PCLZ, TCLX, PCLX 


where 

TCLZ, PCLZ These are real variables. They are input in degrees as spherical 
angles that define the r c -axis of the cylinder coordinate system as if it was 
a radial vector in the definition coordinate system. 

TCLX, PCLX These are real variables. They are input in degrees as spherical 
angles that define the x c -axis of the cylinder coordinate system as if it was 
a radial vector in the definition coordinate system. 

Note that the new x c -axis and 2 c -axis must be defined orthogonal to each other. 

The new y c -axis is found from the cross product of the x c - and z c -axes. 

READ: AC(1,MC), BC(1,MC) 


where 

AC(1,MC) This is a double dimensioned real variable which defines the radius 
of the MCth elliptic cylinder on the x c -axis of the cylinder. 

BC(l,MC) This is a double dimensioned real variable which defines the radius 
of the MCth elliptic cylinder on the y c -axis of the cylinder. 


READ: ZCN, THTN, ZCP, THTP 


/ 
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where 

ZCN This is a real variable that defines the position the center of the most 
negative end cap on the z c -axis of the cylinder. 

THTN This is a real variable. It is input in degrees and defines the angle the 
surface of the most negative end cap makes with the positive*z c -axis in the 
x e -z e plane. 

ZCP This is a real variable that defines the position of the center of the most 
positive end cap on the zc-axis of the cylinder. 

THTP This is a real variable. It is input in degrees and defines the angle the 
surface of the most positive end cap makes with the positive z c -axis in the 
x e ~z c plane. 

Note that the program will keep increasing the number of cylinders in the solution by the 
number of calls to this command unless the NC or NX commands are called to reinitialize 
the cylinder geometry. 
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4.3 Command CM: and CE: Comments 

These commands enable the user to place comment cards in the input and output data in 
order to help identify the computer runs for present and future reference. 


READ: (IR(I), 1=1,36) 


where 

IR(I) This is a CHARACTERS dimensioned array used to store the command 
word and comments. Each card should have CM or CE on them followed 
by an alphanumeric string of characters. The CM command implies that 
there will be another comment card following it. The last comment card 
must have the CE command on it. If there is only one comment card the 
CE command must be used. 

Note that it is possible to place comments to the right of all the command words, if 
desired. 


4.4 Command EN: End Program 

This command enables the user to terminate the execution of the scattering code. 



4.5 Command GP: Ground Plane 

This command enables the user to specify an infinite ground plane in the plane. 


READ: LSLAB(MPDX) 


where — 

LSLAB(MPDX) This is a dimensioned integer variable. It is used to define 
the type of plate desired as follows: 

0 = Perfectly conducting metalic plate 
-3 = Dielectric half space 

Note that if LSLAB(MPDX)=0 the code will skip around the READ state- 
ment for the dielectric information, therefore, the next line defining the 
dielectric properties should not be placed in the input data set. 


READ: ERSL AB ( 1 ,MPDX) , TESLAB(1,MPDX), 

URSLAB(1,MPDX), TMSLAB(1,MPDX) 

where 

ERSLAB(1,MPDX) This is a doubly dimensioned variable. It is used to 
specify the relative dielectric constant of the half space. 

TESLAB(1,MPDX) This is a doubly dimensioned variable. It is used to spec- 
ify the dielectric loss tangent if the number is positive or the conductivity 
if the number is negative of the half space. 

URSLAB(1,MPDX) This is a doubly dimensioned variable. It is used to 
specify the relative permeability constant of the half space. 

TMSLAB(1,MPDX) This is a doubly dimensioned variable. It is used to 
specify the permeability loss tangent of the half space. 
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4.6 Command NC: Next Set of Cylinders 

This command enables the user to initialize the cylinder data. All of the cylinders are 
removed from the problem unless they are respecified following this command. 

4.7 Command NG: No Ground Plane 

This command enables the user to initialize the infinite ground plane. The ground plane is 
removed from the problem unless it is respecified following this command. 

4.8 Command NP: Next Set of Plates 

This command enables the user to initialize the plate data. All of the plates are removed 
from the problem unless they are respecified following this command. 

4.9 Command NS: Next Set of Sources 

This command enables the user to initialize the source data. All of the sources are removed 
from the problem unless they are respecified following the command. 

4.10 Command NX: Next Problem 

This command enables the user to initialize the commands to their default conditions spec- 
ified in the list at the beginning of the main program. 



4.11 Command PG: Plate Geometry 

This command enables the user to define the geometry of the flat plate structures to be 
considered. The geometry is illustrated in Figure 4.3. One call to this command defines 
one plate. The number of plates in the structure are automatically counted by the number 
of calls to this command. 


READ: MEP(MP), LSLAB(MP) 

where 

MEP(MP) This is a dimensioned integer variable. It is used to define the 
number of corners (or edges) on the MPth plate. 

LSLAB(MP) This is a dimensioned integer variable. It is used to define the 
type of plate desired as follows: 

1 = IVansparent thin dielectric slab 
0 = Perfectly conducting metalic plate 
-2 = Dielectric covered plate 

Note that if LSLAB(MP)=0 the code will skip to the read statements associated 
with the corners XX(N,ME,MP). Therefore, the information for the different slab 
layers should not be put in the data list for the perfectly conducting plate. 


READ: NSLAB(MP) 

where 

NSLAB(MP) This is a dimensioned integer variable. It is used to define the 
number of dielectric layers on the MPth plate. 


READ: DSLAB(NS,MP), ERSLAB(NS,MP), TESLAB(NS,MP), 
URSLAB(NS,MP), TMSLAB(NS,MP) 

where 

DSLAB(NS,MP) This is a doubly dimensioned variable. It is used to specify 
the thickness of the NSth layer. 

ERSLAB(NS,MP) This is a doubly dimensioned variable. It is used to specify 
the relative dielectric constant of the NSth layer. 

TESLAB(NS,MP) This is a doubly dimensioned variable. It is used to specify 
the dielectric loss tangent if the number is positive or the conductivity if 
the number is negative of the NSth layer. 



URSLAB(NS,MP) This is a doubly dimensioned variable. It is used to specify 
the relative permeability constant of the NSth layer. 

TMSLAB(NS,MP) This is a doubly dimensioned variable. It is used to spec- 
ify the permeability loss tangent of the NSth layer. 

Note there will be NSLAB(MP) number of lines of the above data. 


READ: (XX(N,ME,MP),N=1,3) 


where 


XX(N,ME,MP) This is a triply dimensioned real variable. It is used to specify 
the location of the MEth corner of the MPth plate. It is input on a single 
line with the real numbers being the x,y,z coordinates of the corner, in the 
specified coordinate system, which corresponds to N= 1,2 ,3, respectively, in 
the array. For example, the array will contain the following for plate #1 
and corner #2 located at x=2., y=4., z=6.: 

XX(1,2,1)=2. 

XX(2,2,l)=4. 

XX(3,2,1)=6. 

This data is input as: 2. ,4. ,6. 

This read statement will be called MEP(MP) times so that all the corners are defined. 
As an example, the input data for the flat plate structure given in Figure 4.3, is given by 


4,0 

l.,l.,0. 
-1., l.,0. 

0 . 


:corners and type of plate 

:comer #1 

:corner #2 

:corner #3 

rcorner #4. 


See elsewhere for further details on how to number the corners. Note that the program 
will keep increasing the number of plates in the solution by the number of calls to this 
command unless the NP or NX commands are called to reinitialize the plate geometry. 
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Figure 4.3: Definition of flat plate geometry. 
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4.12 Command RT: Rotate- Translate Geometry 

This command enables the user to translate and/or rotate the coordinate system used to 
define the input data in order to simplify the specification of the plate, cylinder, and source 
geometries. The geometry is illustrated in Figure 4.4. 


READ: (TR(N),N=1,3) 


where 

TR(N) This is a dimensioned reaj variable. It is used to specify the origin of 
the new coordinate system to be used to input the data for the source or 
the scattering structures. It is input on a single line with the real numbers 
being the x,y,z coordinates of the new origin which corresponds to N=l,2,3, 
respectively. 


READ: THZP, PHZP, THXP, PHXP 


where 

THZP,PHZP These are real variables. They are input in degrees as spherical 
angles that define the z-axis of the new coordinate system as if it was a 
radial vector in the reference coordinate system. 

THXP^PHXP These are real variables. They are input in degrees as spherical 
angles that define the x-axis of the new coordinate system as if it was a 
radial vector in the reference coordinate system. 

The new x-axis and z-axis must be defined orthogonal to each other. The new y-axis is 
found from the cross product of the x- and z-axis. All the subsequent inputs will be made 
relative to this new coordinate system, which is shown as x t ,yt,Zt y unless command RT is 
called again and redefined. 
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4.13 Command SG: Source Geometry 

This command enables the user to specify the location and type of source to used. The 
geometry is illustrated in Figure 4.5 and 4.6. One call to this command defines one source. 
The number of sources in the problem are automatically counted by the number of calls to 
this command and the SA command. 


READ: (XSS(N,MS),N=1,3) 


where 

XSS(N,MS) This is a doubly dimensioned real array which is used to define 
the x,y,z location of the MSth element in the definition coordinate system. 
Again, a single line of data contains the x,y,z (N=l,2,3) locations. 


READ: THSZ, PHSZ, THSX, PHSX 


where 

THSZ, PHSZ These are real variables which are used to define the orientation 
of the MSth element in the definition coordinate system. They are input in 
degrees as spherical angles that define a radial direction which is parallel to 
the MSth current flow for a dipole antenna or which is parallel to the length 
of an aperture antenna. 

THSX, PHSX These are real variables which are used to define the orientation 
of the MSth element in the definition coordinate system. They are input 
in degrees as spherical angles that define a radial direction which is parallel 
to the MSth elements aperture width or which is parallel to a slot’s width. 
For a dipole antenna, these angles can be made in a convenient direction. 

The x-axis and z-axis specified by these angles must be defined orthogonal to 

each other. The y-axis is found by the cross product of the x- and z-axes. 


READ: IMS(MS), HS(MS), HAWS(MS) 

: where 

IMS (MS) This is an integer array which is used to define the MSth element’s 
source type. The details of the different types of sources are given elsewhere. 
The designations are defined as follows: 

IMS(MS)<0 for an electric element 
IMS(MS)>0 for a magnetic element 



|IMS(MS)|=1 for a uniform current distribution 
|IMS(MS)|=2 for a piece-wise sinusoidal distribution 
|IMS(MS)|=3 for a TE01 cosine current distribution 

HS(MS) This is a real array which is used to input the length of the MSth 
element. 

HAWS(MS) This is a real array which is used to input the width of the MSth 
element in the case of an aperture antenna. If HAWS(MS)=0, then it is 
assumed to be a dipole. 

Note that the units of the variable HS(MS) and HAWS(MS) can be specified by 
the US command. If wavelength is chosen as the units then all the sources must 
be specified in wavelengths. 


READ: WMS, WPS 

where 

WMS, WPS These are real variables used to define the excitation associated 
with the MSth element. The magnitude is given by WMS and the phase in 
degrees by WPS. 

Note that the program will keep increasing the number of sources in the solution by the 
number of calls to this command unless the NS or NX commands are called to reinitialize 
the source geometry. 




Figure 4.5: Definition of source geometry for dipole antennas. 
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4.14 Command UF: Scale Factor 


This command enables the user to scale the linear dimensions that follow the command by 
the factor specified. 


READ: UNITF 


where 

UNITF This is a real variable that is used as a scale factor for all the linear 
dimensions that follow the command. 


4.15 Command UN: Units of Geometry 

This command enables the user to specify the units of all the linear dimensions to be input 
after the command is called. (The exceptions are the source length HS and width HAWS, 
and receiver length HR and width HAWR, see command US.) 


READ: IUNIT 


where 


IUNIT This is an integer variable that indicates the units for the input data 
that follows, such that 

1= meters 
2= feet 
3= inches 


4.16 Command US: Units of Source 

This command enables the user to specify the units of the source length HS and width 
HAWS or receiver length HR and width HAWR to be input after the command is called. 
These variables are in the commands SG, SA, RG, and RA. 


READ: IUNST 


where 

IUNST This is an integer variable that indicates the units for the input data 
HS, HAWS, HR, HAWR that follows, such that if 



0= wavelengths 
1= meters 
2= feet 
3= inches 

Note that if the units are specified to be wavelengths for one source it must be wave- 
lengths for all the sources specified. 



43 



4.17 Command VF: Far Zone Volumetric Pattern 

This command enables the user to define the far zone volumetric pattern coordinate system, 
the pattern cut, and the angular range that is desired. The geometry is illustrated in 
Figure 4.7. 


READ: THCZ, PHCZ, THCX, PHCX 


where 

THCZ, PHCZ These are real variables. They are input in degrees as spherical 
angles that define the z p -axis of the pattern coordinate system as if it was 
a radial vector in the reference coordinate system. 

THCX, PHCX These are real variables. They are input in degrees as spherical 
angles that define the x p -axis of the pattern coordinate system as if it was 
a radial vector in the reference coordinate system. 

Note that the new x p -axis and z p -axis must be defined orthogonal to each other. 

The new y p -axis is found from the cross product of the x p - and z p -axes. 

READ: LCNPAT, TPPD, TPPV, NPV 

where 

LCNPAT This is a logical variable that defines the pattern cut desired, Buch 
that 

T= The theta angle is held fixed while the phi angle is varied. The theta 
angle will then be incremented and another cut will be calculated. 

F= The phi angle is held fixed while the theta angle is varied. The phi 
angle will then be incremented and another cut will be calculated. 

TPPD This is a real variable. It defines the starting angle of the “fixed” angle 
specified by LCNPAT. 

TPPV This is a real variable. It defines the incremental angle of the “fixed” 
angle specified by LCNPAT. 

NPV This is a integer variable. It defines the number of pattern points of the 
“fixed” angle specified by LCNPAT. 


READ: TPPS, TPPI, NPN 


where 

TPPS This is a real variable. It defines the starting angle of the “varying” 
angle specified by LCNPAT. 
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TPPI This is a real variable. It defines the incremental angle of the “varying” 
angle specified by LCNPAT. 

NPN This is a integer variable. It defines the anumber of pattern points of the 
“varying” angle specified by LCNPAT. 


45 




b. Conic pattern cut, LCNPAT=.TRUE . , TPPD*THP. 



c. Constant Phi pattern cut, LCNPAT=.FALSE . , TPPD=PHP. 


Figure 4.7: Definition of volumetric pattern coordinate system. 
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4.18 Command XQ: Execute Code 

This command is used to execute the code so that the results may be computed. After 
execution the code returns for another possible command word. 



Chapter 5 


Interactive Commands 


5.1 Overview 

Facilities for interactive programs vary greatly from one operating system to the next with 
little or no standardization between systems. In spite of this, it was felt that the users of 
this code would benefit immensely from an interactive mode of operation. In order for the 
code to have interactive capability without an excessive amount of development time, the 
developers have used many features of the DEC VAX/VMS operating system. Since many 
engineers presently have access to the DEC VAX, it is felt that this will lead to reasonable 
transportability of the interactive mode for this code. 

This decision has several ramifications for users of the SHADOW code. It means that the 
commands described in this chapter do not exist on computers that don’t run VAX/ VMS 
Version 4.0 or greater. It also means that this code has been separated into two parts, one 
standard FORTRAN 77 and the other VMS dependent containing the interactive facility, 
with a slightly different main program for the non-interactive code. 

5.2 Command Descriptions 

This section describes the interactive SHADOW commands in detail complete with exam- 
ples for each. The syntax of the interactive commands is that of the Digital Command 
Language or DCL and for obvious reasons familiarity with the syntax of DCL is assumed 
throughout this chapter. For details about the utilities used to perform this DCL style com- 
mand parsing, readers are referred to the VMS documentation concerning the Command 
Definition Utility or CDU. 



EXIT 


Causes the program to exit. 


FORMAT 

EXIT 


Command Qualifiers Defaults 

None . None . 

restrictions 

None. 

prompts 

None. 

command 

parameters 

None. 

DESCRIPTION 

All output files are closed, and control is returned to DCL. 

COMMAND 

QUALIFIERS 

None. 


EXAMPLES 

$ RUN SHADOW 
SHAD0W> 


SHAD0W> EXIT 

$ 


This example shows how to exit the program. 



HELP 


Displays information about SHADOW commands or help text from 
any other library you specify. 


FORMAT 

HELP help-item 


Command Qualifiers Defaults 

/LIBRARY [“library-name] /LIB“SYS$DISK : [] SHADOW 

restrictions 

The indicated help files must exist. 

prompts 

None. 

command 

parameters 

help-item 

The help-item is a keyword which is the item you want help on. 

DESCRIPTION 

The SHADOW help command adheres to the conventions of VMS 
help libraries in form and content. 

COMMAND 

QUALIFIERS 

/LIBRARY [=library-name] 

/NOLIBRARY 

Controls whether an alternate help library will be used in the search 
for topics. This qualifier must appear immediately after the HELP 
command or it will be interpreted as part of the help-item. If you 
specify /NOLIBRARY then no library will be searched. 


EXAMPLES 

SHADOW> HELP SET OUTPUT 


. (SET OUTPUT help message) 

Topic? EXIT 


. (EXIT help message) 


Topic? <RETURN> 

SHAD0W> HELP/LIBR=HELPLIB LOGOUT 


. (LOGOUT help message from the system help library) 



Topic? <RETURH> 
SHAD0W> 


The above examples show how to get help about shadow topics and 
how to access other VMS help libraries with the HELP command 



SHADOW 

Initiates the obscuration calculation for the current antenna location 
and input geometry. 

FORMAT 

SHADOW 


Command Qualifiers Defaults 

None . None . 

restrictions 

None. Command may be abbreviated “S”. 

prompts 

None. 

command 

parameters 

None. 

DESCRIPTION 

The commands which alter parameters, such as SET WINDOW and 
SET ANTENNA do not initiate shadowing calculations automati- 
cally. This is to avoid redundant calculations when several param- 
eters are changed at once. Once desired parameters are set* the 
SHADOW command performs the obscuration calculations and out- 
puts the result. 

COMMAND 

QUALIFIERS 

None. 


EXAMPLES 


SHADGW> SET ANTENNA 
Input antenna location in 
Antenna in RCS (meters): 
Definit system (meters): 
SHAD0W> SHAD 
Working . . . 

SHADOW> SET ANTENNA 
Input antenna location in 
Antenna in RCS (meters) : 
Delinit system (meters): 
SHAD0W> S 
Working . . . 

SHAD0W> 


meters: 11,22,32 

11.00000 22.00000 
11.00000 22.00000 


meters: 10,20,30 

10.00000 20.00000 
10.00000 20.00000 


32.00000 

32.00000 


30 . 00000 
30.00000 


The above commands all calculate the projected shadows for two 
different antenna locations on given input geometry. The results all 
go into the same output file, because no “SET OUTPUT” command 
was executed in between “SHADOW” commands. 



SPAWN 


Creates a subprocess for executing DCL commands without exiting 
the SHADOW program. This command is useful for executing DCL 
commands without reinitializing the context of a SHADOW program 
session. 


FORMAT 

SPAWN command- string 


Command Qualifiers Defaults 

None . None . 

restrictions 

A few restrictions are imposed by VMS. 


oThe RESOURCE-WAIT state must be enabled for the spawning 
process. 

oRequires TMPMBX or PRMMBX user privileges. 
oSPAWN does not manage terminal characteristics. 

Command may be abreviated “$ ” , where the blank after the $ is 
necessary. 


prompts 

None. 

command 

parameters 

c ommand- string 

Specifies a DCL command string to be executed in the context of 
the subprocess. SHADOW will wait until the subprocess completes 
executing. If command-string is blank, the subprocess will prompt 
for commands repeatedly. 

DESCRIPTION 

The details of the spawn command are exactly as documented in the 
DCL dictionary, volume 2 of the VAX/VMS documentation set. 

COMMAND 

QUALIFIERS 

None. 


EXAMPLES 

SHADOW> SPAWN SHOW USERS 

VAX/VMS Interactive Users 
11 -DEC- 1986 08:34:18.72 
Total number of interactive users = 6 
Username Process Name PID Terminal 
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* » 


CWP6148 

CWP6148 

00000891 

VT1023 

TTAO: 

DF6148 

DF6148 

00000 AF A 

VT1086 

TTC4: 

EHN000 

EHNOOO 

000009F8 

VT1086 

TTB7 : 

LT6199 

LT6199 

OOOOOAEE 

VT1081 

TTA7 : 

WE6148 

WE6148 

00000973 

VT1082 

TTB2: 


SHADOW> SPAWN 
$ SHO TIME 


11 -DEC- 1985 08:36:13 
$ LOG 

LT6199.1 job terminated at 11-DEC- 1986 08:36:20.90 
SHADOW> 


The above spawn command illustrate how DCL commands may be 
executed without exiting the SHADOW program. 
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SET ANTENNA-LOCATION 

Determines the location of the source point, or the center of the 
far-zone sphere for subsequent shadowing calculations* 

FORMAT 

SET ANTENNA 


Command Qualifiers Defaults 

None. None. 

restrictions 

Its recommended that the antenna not be placed in the interior of a 
cylinder. Unusual results may occur if this is done. 

prompts 

Input antenna location in meters: 
Input antenna location in feet : 
Input antenna location in inches: 

command 

parameters 

None. 

DESCRIPTION 

The antenna location consists of the (x,y,z) components of a vector 
in the current units and definition coordinate system, set by the SET 
UNITS and the SET COORDINATE commands, respectively. The 
command does NOT accept the antenna location on the command 
line, but prompts for it instead. The input syntax for the numbers 
is that of an unformatted FORTRAN read. 

COMMAND 

QUALIFIERS 

None. 


EXAMPLES 


SHADOW> SET ANTENNA 

Input antenna location in meters: 10,20,30 

Antenna in RCS (meters): 10.00000 20.00000 30.00000 

Delinit system (meters): 10.00000 20.00000 30.00000 


This example sets the antenna location to 10. ,20. ,30. (x,y,z) in the 
current units, which are meters. 
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EXAMPLES 


SHADOW> SET UNIT FEET 
SHADOW> SET ANT 

Input antenna location in feet : 10,20,30 
Antenna in RCS (meters): 3.04800 6.09600 

Definit ByBtem (feet ): 10.0000 0 20.00000 

SHADOW> 


9.14400 

30.00000 


This example shows how the antenna location is interpreted in the 
units of feet. 
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SET COORDINATES 


Sets up a coordinate transformation to be applied to subsequent 
geometry. 

FORMAT 

SET COORDINATES 


Command Qualifiers Defaults 

None. None. 

restrictions 

The specified coordinate axes must be orthogonal to one another. 

prompts 

Please input a translation vector in feet: 

Please input THZP, PHZP, THXP, PHXP in degrees: 

command 

parameters 

None. 

DESCRIPTION 

The antenna location may be specified relative to an alternative co- 
ordinate system. This coordinate system is established via the SET 
COORDINATES command. It does not affect the pattern cut coor- 
dinate system. 

COMMAND 

QUALIFIERS 

None. 


EXAMPLES 


SHAD0W> SET COOR 

Please input a translation vector in feet : 100,200,300 
Please input THZP . PHZP , THXP . PHXP in degrees: 0, -B4, 266.5, 46 

* The following rotations are used for ALL subsequent inputs: * 

* VRS (1,1)= -0.70711 VRS(1 ,2)= -0.70711 VRS(1,3)“ 0.00000 * 

* VRS(2, 1)“ 0.70711 VRS(2,2)= -0.70711 VRS(2,3)*» 0.00000 * 

* VRS (3 , 1)“ 0.00000 VRS(3,2)= 0.00000 VRS(3,3)= 1.00000 * 


The above example shows how a default coordinate system may be 
established. The program echoes the established coordinate axes. 
These may be re-examined at any time with the SHOW COORDI- 
NATE command. 


SET FILL_CHARACTER 

Allows selection of the characters used to fill the output. Can be 
used to highlight particular elements of a geometry. 


FORMAT SET FILL [tag-character] 


Command Qualifiers Defaults 

'/SEQUENTIAL None. 

/PLATE® (num[, char]) None. 

/CYLINDER® (num[, char] ) None. 


restrictions None. 


prompts None. 


tag-character 

Is any single ASCII character. If a lowercase letter is desired, enclose 
the letter in double quotes, i.e. “a” . The default is “X” . 


command 

parameters 


DESCRIPTION In order to better trace portions of a geometry through the shadow- 
ing process, the ability to tag a particular cylinder or plate has been 
added. The tag setting remains in effect until altered by a subsequent 
“SET FILL” command. The highlighted plate or cylinder appears in 
its entirety in the output regardless of its actual position in the hi- 
erarchy of obscuration. This allows the user to be absolutely certain 
of the shadowing caused by the particular highlighted geometry. 

There are three tagging modes available. One is sequential tagging. 
In this mode, the code attempts to assign a unique character in the 
output to each plate/cylinder in the input. Plates are numbered 
beginning with “A” and increasing through the ASCII character se- 
quence, and cylinders are treated the same way beginning with “1” . 

The second mode causes all parts of the geometry to be shaded with 
a single specified character such as “X”. In this total obscuration 
mode, any one part of the input geometry is not easily identified — 
rather the the total obscuration is presented homogeneously. It is 
specified using SET FILL without qualifiers. The third mode is the 
same as the second mode, but with the added feature of one single 
plate (or cylinder) highlighted with a different character. In this 
mode the relation of one part of the geometry to the rest is clearly 


visible. This mode can be very helpful when isolating particular 
parts of a geometry that are shadowing the source. 


COMMAND /SEQUENTIAL 

QUALIFIERS /sequential 

The /SEQUENTIAL qualifier selects the first mode of obscuration, 
sequential tagging of the input geometry. This qualifier may not be 
specified with a tag-character parameter nor with any of the other 
qualifiers. 

/PLATE=num 
/PLATE 3 (num, char) 

The /PLATE qualifier selects the third mode of obscuration, ho- 
mogenous tagging with highlighting of a particular plate. 

The num argument is the number of the plate to be tagged. It is a 
required argument. The char argument is the ASCII character to be 
used when tagging the plate. It is optional, and defaults to “P” if 
unspecified. 

This qualifier may not be specified in combination with other quali- 
fiers. It is mutually exclusive with the /CYLINDER qualifier. 

/ CYLINDER=num 
/CYLINDER 3 (num , char) 

The /CYLINDER qualifier selects the third mode of obscuration, 
homogenous tagging with highlighting of a particular cylinder. It 
works exactly like the /PLATE qualifier. 

The num argument is the number of the cylinder to be tagged. It 
is a required argument. The char argument is the ASCII character 
to be used when tagging the cylinder. It is optional, and defaults to 
“C” if unspecified. 

This qualifier may not be specified in combination with other quali- 
fiers. It is mutually exclusive with the /PLATE qualifier. 


EXAMPLES 

SHADOW> set fill 

No individual plates/cylinders are tagged 
All geometry marked by [X] 

SHADOW> set fill $ 

No individual plates/cylinders are tagged 
All geometry marked by [$] 

SHADOW> set fill * /plate=6 
Plate 6 is tagged with [P] 



All other geometry tagged with [*] 


SHAD0W> set fill * /plate=(7,%) 

Plate 7 is tagged with ['/,] 

All other geometry tagged with [*] 

SHAD0W> set lill q /cyl*(2,$) 

Cylinder 2 tagged with [$] 

All other geometry tagged with [Q] 

SHAD0W> set fill /plate-9 /cyl=4 

%CLI-W-CONFLICT, illegal combination of command elements 
SHAD0W> set lill Q /cyl«(2,$) /eeq 

XCLI-W-MAXPARM, too many parameters - reenter command with fewer parameters 

SHAD0W> set fill /seq ! Q /cyl*(2,$) /seq 
All cylinders/plates sequentially tagged 


The above examples are obvious except possibly the last three. They 
show that the qualifiers are not allowed in combination, that the /SE- 
QUENTIAL qualifier does not allow specification of a fill character, 
and that the DCL syntax ignores everything after an exclamation 
point. 
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SET INPUT.SET 


Reads an input set from a named file 

FORMAT 

SET INPUT-SET filename 


Command Qualifiers Defaults 

None. None. 

restrictions 

The named input file must exist. 

prompts 

Jnput set: 

command 

parameters 

filename 

The name of the input set. It may be any valid VMS filename, 
including a logical name. The default filetype is .INP, 

DESCRIPTION 

The set output command has the dual role of designating an input 
file and simultaneously causing that input set to be read and pre- 
pared for subsequent shadow commands. The current output files 
are NOT affected by this command so that several outputs may be 
concatenated. Normally though, this command would be entered 
after a SET OUTPUT command. 

COMMAND 

QUALIFIERS 

None. 


EXAMPLES 


SHADOW> SET OUT AH6S1 

Plotting file is: USER1 : [R JM . NAS] AN5S1 . PLT ; 1 
Printer file is: _NLAO : [] F0R0O7 . DAT ; 

Input echo file: USER1 : [RJM.NAS] AN6S1 .LIS; 1 
SHAD0W> SET INPUT AN6S1 
The current input set is 
USER1 : [RJM . NAS] AN6S1 . INP ; 1 


The SET OUTPUT command is used to set the output files - the 
printer output is discarded by default. The input set AN5S1.INP is 
then read and processed by the SET INPUT command. 


SET KEYPAD_MODE 

Causes the keypad state to change to non-numeric. 


FORMAT 

SET [NO] KEYPAD 

1 


Command Qualifiers Defaults 

None. None. 

restrictions 

None. 

1 

prompts 

None. 

i 

command 

parameters 

Nolle. 

i 

i 

DESCRIPTION 

The keypad of most DEC terminals can be in one of two states, nu- 
meric mode or keypad mode. In numeric mode, the keypad buttons 
represent the numbers and symbols printed on the keys. In keypad 
mode, the keys may be defined to provide functions, in much the 
same way as they do in DCL. 

SET KEYPAD enables the defined-key feature of SHADOW, and 
SET NT OKEYPAD returns the keypad to numeric-entry mode. 

The keypad definitions are made in a session startup file called 
SHADOW. KPD; in the current default directory. 

COMMAND 

QUALIFIERS 

None. 

i ' • 


EXAMPLES 

i 

SHADOW> SET KEYPAD 

The keyboard is in keypad mode. 

SHADOW> SET NOKEYPAD 

The keyboard ie not in keypad mode. 


SET OUTPUT 


Determines the names of new output files and closes current output 
files. 


FORMAT 

SET OUTPUT filename 



Command Qualifiers 
/PLOTTABLE 
/PRINTABLE 
/ECHOING 

Defaults 

/PLOTTABLE 

/NOPRINTABLE 

/ECHOING 

restrictions 

The filename must be a 

valid VMS filename. 

prompts 

-filename: 


command 

parameters 

filename 

The name(s) of the newly created output file(s). 


DESCRIPTION There are three different outputs from the shadow program. One 

is an echo of the input set from the input processor. Another is 

a line printer output of the shadow map. The third is an output 
suitable for input to a separate plotting program. The set output 
command opens these files for the code. The name of the file opened 
is specified as the filename parameter. The filetypes are set by the 
command automatically, so that only the filename need be specified. 

COMMAND /PLOTTABLE 

QUALIFIERS /NOPLOTTABLE 

Causes a plottable output file to be produced. This is the default. 
Specifying /NOPLOT will override this default. 

/PRINTABLE 
/NOPR INTABLE 

Causes an output file to be produced which is suitable for printing 
oh a standard line printer. /NOPRINT is the default. Specifying 
/PRINT will override this default. 

/ECHOING 

/NOECHOING 

Causes the input echo to be saved in a file when a new input set is 



64 


read. /ECHOING is the default. Specifying /NOECHO will override 
this default. 


EXAMPLES 

SHAD0W> SET OUT AN5S1 

Plotting file is: USER1 : [RJM.NAS]AN6S1 .PLT; 1 
Printer file is: _Ni!aO: [] F0R007.DAT; 

Input echo file: USER1: [RJM.NAS] ANBS1 .LIS;1 
SHAD0W> SET OUT ANBSjl /PRINT 
Plotting file is: USER1 : [RJM.NAS] ANBSi .PLT; 2 
Printer file is: USER1: [RJM.NAS] ANBSI. PRT;1 
Input echo file: USER1 : [RJM.NAS] ANBSI .LIS; 2 
SHAD0W> SET OUT ANBS1 /NOPLOT /NOECHO /PRINT 
Plotting file is: _Ni1aO: [] FOROIO.DAT; 

Printer file is: USEFll : [RJM . NAS] AN6S1 . PRT ; 2 
Input echo file: _NLA<0 : [] FOR008.DAT; 

SHADOW> SET OUT ANBSlj 

Plotting file is: USER1 : [RJM.NAS]ANBS1 .PLT;3 
Printer file is: _NLAb: [] F0R007.DAT; 

Input echo file: USER! : [RJM.NAS] ANBS1 .LIS; 3 


The above examples show the operation of the SET OUTPUT com- 
mand. Note that the printer file is not produced by default, and the 
device NLAO: (the null device) is where the output is discarded; 
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SET PATTERN-CUT 

Specifies the pattern cut coordinate system. 


FORMAT 

SET PATTERN-CUT 


Command Qualifiers Defaults 

None. None. 

restrictions 

The specified coordinate axes must be orthogonal. 

prompts 

Please input THZP, PHZP, THXP, PHXP in degrees: 

command 

parameters 

None. 

DESCRIPTION 

The shadow map window is specified relative to the pattern-cut co- 
ordinate system. This system can be changed to facilitate easier 
specification of this window relative to the blocking object coordi- 
nate system. 

COMMAND 

QUALIFIERS 

None. 


EXAMPLES 

SHADOW> SET PAT 

Please input THZP , PHZP . THXP , PHXP in degrees: 0, -64, 265.6, 45, 0, 136 


* The following rotations are used for ALL subsequent inputs: * 

* VPC(1,1)= -0.70711 VPC(1,2)= -0.70711 VPC(1,3)= 0.00000 * 

* VPC(2 , 1)= 0.70711 VPC(2,2)= -0.70711 VPC(2,3)= 0.00000 * 

* VPC(3,1)- 0.00000 VPC(3,2)= 0.00000 VPC(3,3)« 1.00000 * 


The pattern-cut coordinate system shown has been set up. 



SET SCALE-FACTOR 

Sets a new value for the uniform scale factor. 

FORMAT 

SET SCALE-FACTOR 

1 


Command Qualifiers Defaults 

None. None. 

i 

restrictions 

The scale factor may not be specified on the command line. 

prompts 

Please input a uniform scale factor: 

command 

parameters 

I 

Norie. 

DESCRIPTION 

In order to allow for more flexibility in specifying input, an additional 
scale factor may be applied to numerical inputs. The default value 

of this command is 1. 

1 

COMMAND 

QUALIFIERS 

i 

None. 


EXAMPLES 

SHADOW> SET SCALE 


Please input a uniform scale factor: 5.5 

The uniform scale factor is 5.50000000 


The uniform scale factor has been changed to 5.5. 
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SET UNITS 


Sets the default units for the entry of numeric values. Allowable 
units are Meters, Feet, Inches. 


FORMAT 

SET UNITS keyword 


Command Qualifiers Defaults 

None. None. 

restrictions 

None. 

prompts 

inches, feet, or meters: 

command 

parameters 

Keyword may be one of the following: 


o METERS 
o FEET 
o INCHES 


DESCRIPTION 

When the antenna location is set, these are the units applied to the 
specified position. Internal calculations are always done in meters. 

COMMAND 

QUALIFIERS 

None. 


EXAMPLES 

SHAD0W> SET UNI FEET 


This example sets the default units to feet. 



SET WINDOW 


Sets parameters for windowing of the output. 


FORMAT 

SET WINDOW 

1 


Command Qualifiers Defaults 

None. None. 

i 

restrictions 

The maximum span of theta must be less than 180 degrees. The 
maximum span of phi must be less than 360 degrees. The maximum 
resolution is a function of the specified range for both theta and phi. 
None of these parameters is specified on the command line. 

prompts 

| 

Please enter a new range for theta (lower, higher): 
Please enter a new THETA resolution in degrees/pixel: 
Please enter a new range for phi (lower, higher): 

Please enter a new PHI resolution in degrees/pixel: 

command 

parameters 

1 

None. 

DESCRIPTION 

In order to be more flexible on the presentation of the output, a win- 
dowing feature was included so that portions of theta-phi space may 
be mapped onto a larger output surface. The set window command 
does this by prompting for the desired range of displayed theta and 
phi, and the desired levels of resolution. The default window displays 
the entire range of theta and phi at a resolution of 2 degrees/pixel 
in both directions. 

COMMAND 

QUALIFIERS 

! ' .. 

None. 


EXAMPLES 

SHAD0W> SET WINDOW 

The current range of theta in degrees is 0.0000000E+00 to 180.0000 
with a resolution of 2.000000 degrees/pixel. 

The current range of phi in degrees is 0 . 0000000E+00 to 360.0000 

with a resolution of 2.000000 degrees/pixel. 

Please enter a new range for theta (lower .higher) : 30,40 
Please enter a new THETA resolution in degrees/pixel: .6 
Please enter a new range for phi (lower .higher) : 46,90 
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Please enter a new PHI resolution in degrees/pixel: 

The current range ol theta in degrees is 30.00000 to 40.00000 
with a resolution ol 0.5000000 degrees/pixel. 

The current range ol phi in degrees is 45.00000 to 90.00000 
with a resolution ol 0.6000000 degrees/pixel. 


The set window command above first displays the current window 
settings (which also happen to be the default settings), then prompts 
for new values. The new values are then also shown. 



SHOW ANTENNA-LOCATION 

Display the current antenna position. 


FORMAT 

SHOW ANTENNA-LOCATION 


Command Qualifiers Defaults 

None. None. 

1 

restrictions 

None. 

J 

prompts 

None. 

i 

command 

parameters 

i 

1 

None. 

! 

DESCRIPTION 

The antenna location is displayed in both the current default units 
and the Reference Coordinate System. 

COMMAND 

QUALIFIERS 

None. 


EXAMPLES 

SHAD0W> SHO ANT 

Antenna in RCS (meters): 2.00000 3.00000 4.00000 

Deiinit system (meters): 2.00000 3.00000 4.00000 

i 

This command displays the current antenna location in both the 
reference coordinate systems (RCS) and the current default units, 
which are also meters in this example. 
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SHOW COORDINATES 

Displays the default transformation applied to antenna placement 
commands. 


FORMAT 


SHOW COORDINATES 


Command Qualifiers 
None. 


Defaults 

None. 


restrictions 


None. 


prompts 


None. 


command 

parameters 


DESCRIPTION 


None. 


The antenna location is input in terms of an antenna coordinate 
system. This command displays the orientation of this system. 


COMMAND 

QUALIFIERS 

EXAMPLES 


None. 


SHAD0W> SHO COORD 

* VRS(l.l)- 1.00000 VRSC1.2)* 

* VRS(2 , 1)® 0.00000 VRS(2,2)» 

* VRS(3,1)» 0.00000 VRS(3 ,2)* 


0.00000 VRS(1,3)> 
1.00000 VRSC2.3)- 
0.00000 VRSC3.3)- 


0 . 00000 
0.00000 
1.00000 


In this example, the antenna coordinate system is coincident with 
the reference coordinate system. 
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SHOW FILLXHARACTER 

Displays the current output fill modes. 


FORMAT 

SHOW FILL 


Command Qualifiers Defaults 

None. None. 

restrictions 

None. 

t . 

prompts 

N^ne. 

command 

parameters 

i 

None. 

DESCRIPTION 

Tlie output may be generated in one of three modes. For a detailed 
description of the possible modes, see the SET FILL command. 

COMMAND 

QUALIFIERS 

None. 

I 


EXAMPLES 

SHADOW> SHOW FILL 

Plate 6 is tagged with [P] 

All other geometry tagged with [*] 


In the above example, the sixth plate of the input set is tagged with 
the ASCII character “P” . The SET FILL command has many more 
examples. 



SHOW INPUT-SET 

Displays the name of the file from which the current geometry was 
defined. 


FORMAT 

SHOW INPUT-SET 


Command Qualifiers Defaults 

None. None. 

restrictions 

None. 

prompts 

None. 

command 

parameters 

None. 

DESCRIPTION 

The input set is determined with the SET INPUT command. The 
SHOW INPUT command echoes this input set filename. 

COMMAND 

QUALIFIERS 

None. 


EXAMPLES 

SHAD0W> SHOW INPUT 

The current input set is 

USER1 : [RJM.NAS] AN5S1 ,INP;1 


SHOW KEYPAD-MODE 

Displays the current state of the keyboard. 


FORMAT 

SHOW KEYPAD .MODE 


Command Qualifiers Defaults 

None. None. 

i 

restrictions 

Nbne. 

prompts 

None. 

i 

command 

parameters 

1 

None. 

DESCRIPTION 

Tlie keypad of most DEC terminals can be in one of two states, nu- 
meric mode or keypad mode. In numeric mode, the keypad buttons 
represent the numbers and symbols printed on the keys. In keypad 
mode, the keys may be defined to provide functions, in much the 
same way as they do in DCL. The keypad definitions are established 
by a startup file called SHADOW.KPD in the current default direc- 
tory. 

COMMAND 

QUALIFIERS 

None. 


EXAMPLES 

SHADOW> SHOW KEYPAD 

The keyboard is not in keypad mode. 


The keypad was not in keypad mode in this example. 


SHOW OUTPUT 


Displays the names of the current output files. 


FORMAT 

SHOW OUTPUT 


Command Qualifiers Defaults 

None. None. 

restrictions 

None. 

prompts 

None. 

command 

parameters 

None. 

DESCRIPTION 

There are three possible output files produced by the shadow pro- 
gram. One is for plotting with a separate plotting program and has a 
filetype of .PLT. The second is a line-printer formatted output with 
a filetype of .PRT. The third is the input set listing echo, which may 
be redirected into a file. Its filetype is .LIS. 

COMMAND 

QUALIFIERS 

None. 

EXAMPLES 

* 


SHADOW> SET OUTPUT EXAMPLE3 /PRINT 
SHAD0W> SHOW OUTPUT 

Plotting file is: USER1 : [R JM . NAS] EXAMPLE3 . PLT ; 1 
Printer file is: USER1 : [R JM . NAS] EXAMPLE3 . PRT ; 1 
Input echo file: USER1 : [RJM.NAS]EXAMPLE3.LIS; 1 


This example shows how a SET OUTPUT command creates the 
names shown for output files. See the SET OUTPUT command 
description for more details. 




SHOW PATTERN-CUT 

Displays the pattern-cut coordinate system transformation matrix. 

FORMAT show pattern.cut 

I 

Command Qualifiers 
None. 

restrictions None. 

None. 

i 

None. 

The shadow map window is specified relative to the pattern-cut co- 
ordinate system. This system can be changed to facilitate easier 
specification of this window relative to the blocking object’s coor- 
dinate system, that is, the reference coordinat system. For more 
information, see the SET PATTERN command on page 66. 

None. 


SHAD0W> SHOW PATT 

* The following rotations are used i or ALL subsequent inputs: * 

* VPC(l,l)= -0.70711 VPC(1 ,2)= -0.70711 VPC(1,3)*= 0.00000 * 

* VPC(2 , 1)= 0.70711 VPC(2,2)= -0.70711 VPC(2,3)= 0.00000 * 

* VPC(3 , 1) = 0.00000 VPC(3,2)= 0.00000 VPC(3,3)= 1.00000 * 


The pattern-cut coordinate system shown has been set up. 


prompts 

command 

parameters 

DESCRIPTION 


COMMAND 

QUALIFIERS 

EXAMPLES 


Defaults 

None. 
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SHOW SCALE-FACTOR 

Displays the uniform scale factor currently in effect. 


FORMAT 

SHOW SCALE-FACTOR 

• 


Command Qualifiers 
None. 

Defaults 

None. 

restrictions 

None. 


prompts 

None. 


command 

parameters 

None. 


DESCRIPTION 

The SET SCALE-FACTOR command can set a uniform scale factor 
on subsequent antenna inputs. It allows an extra scaling on the 
inputs. 

COMMAND 

QUALIFIERS 

None. 



EXAMPLES 

SHAD0W> SHOW SCALE 

The uniform scale factor is 1.00000000 


The above scale factor is the default. It has not been changed with 
SET SCALE. 




SHOW UNITS 


Displays the current units in effect. Valid units are meters, feet, and 
inches. 


FORMAT 


SHOW UNITS 


Command Qualifiers 
None. 


Defaults 

None. 


restrictions 


None. 


prompts 


None. 


command 

parameters 

DESCRIPTION 


None. 

There are three different units in which antenna locations may be 
specified. This command displays the units currently in effect. The 
SET UNITS command changes the default units. 


COMMAND 

QUALIFIERS 

EXAMPLES 


None. 


SHADOW> SHOW UNITS 

The current units are feet 
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SHOW WINDOW 


Displays the current window parameters. 


FORMAT 

SHOW WINDOW 


Command Qualifiers Defaults 

None. None. 

restrictions 

None. 

prompts 

None. 

command 

parameters 

None. 

DESCRIPTION 

The output can be windowed onto a smaller range of theta or phi, 
with any desired resolution. The parameters for this windowing are 
established by the SET WINDOW command. 

COMMAND 

QUALIFIERS 

None. 


EXAMPLES 


SHAD0W> SHOW WIND 

The current range o f theta in degrees is O.OQOOOOQE+OO to 180.0000 
with a resolution of 2.000000 degrees/pixel. 

The current range of phi in degrees is 0 . OOOOQOOE+OO to 360.0000 

with a resolution of 2.000000 degrees/pixel . 


In this case, the window is set to its default range with a resolution 
of two degrees/pixel. 


Chapter 6 

i 

Interpretation of the Output 


The final product of the obscuration code, SHADOW, is a map of the projected shadow 
of a defined object onto the far zone sphere with its center at the antenna location. The 
map is composed of pixels with the size and range specified by the user. The obscuration 
code provides complete control over the parameters needed to define the map and provides 
a line printer output or a plottable file that can be used by an external plotting code. This 
chapter outlines the details of defining, obtaining, and interpreting the shadow map. 

For this discussion, the far zone sphere can be viewed as being ironed out into a flat 
plane, that is, a Mercator’s projection with the angle phi along the x axis and the angle 
theta along the y axis. Using the VF non-interactive command or the SET WINDOW 
interactive command, the user can choose starting angles, incremental step size which is 
the resolution of the map, and the total number of steps or pixels for both the theta and 
phi angles. This, of course, also dictates the stopping angles of the map which it computes. 
The default is for theta to vary from 0 to 180 degrees in steps of 2 degrees for a total of 
91 pixels, and for phi to vary from 0 to 360 in steps of 2 for a total of 181 pixels. The 
interactive command SET WINDOW allows these parameters to be changed at any time 
during a session. It asks for the starting and stopping angle and the resolution which is 
the step size and it computes the number of pixels for each angle. These angles are defined 
with respect to the pattern coordinate system, which is specified by the first set of angles 
in the VF command or by the SET PATTERN command. The default is for the pattern 
coordinate system to be the same as the reference coordinate system. 

As discussed in Chapter 2, the code computes the shadow by first projecting the objects 
border onto the far zone sphere and then filling in between the borders. A pixel is considered 
to be filled if the border at least passes through more than half the distance to the center 
of a pixel. It determines this by rounding the theta and phi angles defining the border to 
the nearest integer with respect to the resolution size of the pixel, which is the step size. 
This sometimes appears to produce a ragged border around the edges of the shadow if the 
border is very curved. Note that a straight edged plate projects a shadow that is curved 
in border. In addition, this is dependent on the coordinate system in which the shadow is 
viewed. Chapter 7 presents specific examples of these types of maps. 

The shadow is represented by an ASCII character being placed in an array corresponding 
to the integerized theta and phi angles. A clear viewing point is left blank. The choice of 
the character that is placed in the pixel can be controlled by the user. The default is for 
an “X” to be used as a fill character. Interactivly this can be changed using the SET FILL 



command. Noninteractivly, these are hard-wired into the source code. 

For debugging purposes or so that the user can get a feel for which plates and cylinders 
are shadowing which regions of space a highlighting feature has been provided. The SET 
FILL/SEQUENTIAL command tags each plate and cylinder with its own uniquie fill char- 
acter. The first plate starts with “A” and each succeeding plate is incremented up by one 
ASCII character. The first cylinder starts with “1” and each succeeding cylinder is incre- 
mented up by one ASCII character. Note that if there are a lot of plates and/or cylinders, 
the fill characters will eventually get into some of the more seldom used ASCII characters. 
Also note that in this mode of filling, the code superimposes the latest calculated shadow 
for a plate or cylinder on top of the shadow map. This means that the character in a pixel 
for a finished map will represent the last object that the code calculated a shadow for and 
not the object that is located closest to the observer. 

In order to get around the ambiguous behavior of highlighting the plates and cylinders 
by order of processing rather than by location, the user can instead use the standard fill 
character for all plates and cylinders and highlight one particular specified object. The 
command SET FILL/PLATE = (number, character) or SET FILL/CYLINDER = (num- 
ber, character) will highlight the chosen plate or cylinder against the regular fill character. 
The plate or cylinder options are mutually exclusive. It represents the shadow of the whole 
plate or cylinder that is tagged. A non interactive command has not been provided for 
these fill features. The user can change the fill characters and mode in the INIT subroutine. 

The output that the user sees can come in three forms. The first type of output comes 
from an echo of the command set that is read from the input file on logical unit #5. The 
output is sent to logical unit #6, which is normally assigned to a default file type of .LIS 
on a VAX in the interactive mode. An ASCII file of the shadow map is written to logical 
unit #7, which is normally assigned to a default file type of .PRT on a VAX. A binary file 
of the shadow map that can be used to transfer information to another code to plot the 
map is sent to logical unit #10, which is normally assigned to a default file type of .PLT 
on a VAX. 

In the interactive mode, the input set can be opened using the SET OUTPUT com- 
mand. The output files can be opened and closed using the SET OUTPUT /ECHOING, 
/PRINTABLE, /PLOTTABLE commands, respectively. In the non-interactive mode, they 
can be controlled by using system commands, such as ASSIGN on the VAX. In the inter- 
active mode, the output files should generally be set first, so that the code will have the 
desired information as to where to sent the echo back information. In addition, once the 
code is run and it is desired to see the results, it is possible to print or plot the results using 
the SPAWN (“$”) command. The files that are desired to be printed or plotted, however, 
must be closed first, that is, the SET OUTPUT command should be given again reassigning 
the files to another name, a null device, or the printing device. This will close the files and 
allow them to be accessed. Of course, it is important to remember to reopen them after the 
user is finished and wants to run more results. Presently, the echo, printable, and plottable 
map files will accumulate information until they are closed. 

Generally, the code will be used to produce plottable files of the shadow maps with the 
printable file being used for debug purposes. Plotted maps are small and nicer to look at. 
Unfortunately, graphical routines are presently system dependent. A plotting code for a 
NCAR [5], has been provided, however, in Chapter 13. This is one example of how the 
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data of the shadow map can be plotted. Examples of both the printed and plotted maps 
are illustrated in the examples of Chapter 7. It should be noted that due to the limited 
amount of space across the width of a line printer, a printed map will be broken up into 
widths that will fit onto the width of the paper if it is too wide. The map will come out in 
as many strips as necessary to produce the whole map. Plotted maps should not have this 
problem since the individual pixels can be graphed very close together. 



Chapter 7 


Examples 


The following examples are used to illustrate the various features of the SHADOW com- 
puter code. Each example is designed to show how a set of non-interactive and interactive 
commands can be put together to solve a problem. The beginner can use the examples 
in this chapter to learn more about the code. In addition, these examples can be used to 
ensure that the code is operating correctly on your system. These examples were run on a 
DEC VAX 11/780 computer using version 4 of the VMS operating system. 

The shadow maps shown here are presented mostly with the line printer output, since 
this is generally the most transportable. Plotted output would normally be preferred in a 
design situation. A few examples of this type of output are also given. 



7.1 Example Is A Plate 


The first example is a four-cornered plate centered at the origin and situated in the X-Y 
plane. The antenna is located on the positive Z axis. It was generated with the following 
input files and commands. The commands were: 

$ RUN SHADOW 

SHAD0W> SET OUT PLAEX1/N0PL0T/PRINT 
SHAD0W> SET INP PLAEX 
SHAD0W> SET UNI METERS 
8HAD0W> SET WIND 
90, 180 
1.0 

0. , 360 
5. 

SH AD0W> SET ANT 
8HAD0W> 0,0,8 
SHAD0W> SHADOW 
SHAD0W> EXIT 

$ 

The input set defining the plate was the following: 

CM: SIMPLE PLATE TEST SET 

CE: RCS INPUT SET 

UN: 

1 

PG: THE PLATE IS 400 S QUARE- METERS . 

4,0 

- 10 . 0 , + 10 . 0 , 0.0 
“lo.o, -lo.o, :.o 
+ 10 . 0 , - 10 . 0 , 0.0 
+ 10 . 0 , + 10 . 0 , 0.0 
XQ: 

EN: 
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The output this produced was the following: 


ANTENNA (IC8) ■ ( 0.0000, 0.0000. 8.0000 ) IN KXTIK8 INFUT IXT: U32E1 : [EJM.NAS.MAN]FLAIX.IN?|6 


00.00 
MI ♦ 
0.00 
6.00 
10.00 
16.00 
ao.oo 

36.00 

30.00 

36.00 

40.00 

46.00 

60.00 
66.00 
60.00 
66.00 

70.00 

76.00 

80.00 
86.00 
00.00 
06.00 

100.00 

106.00 

110.00 

116.00 

120.00 

125.00 

130.00 

135.00 

140.00 

146.00 

160.00 

156.00 

160.00 
166.00 

170.00 

176.00 

180.00 
186.00 
100.00 

196.00 

200.00 

205.00 

210.00 
216.00 
220.00 

225.00 

230.00 

235.00 

240.00 

246.00 

250.00 

265.00 

260.00 

265.00 

270.00 

275.00 

280.00 

285.00 

290.00 

296.00 

300.00 

305.00 

310.00 

316.00 

320.00 

326.00 

330.00 

335.00 

340.00 

346.00 

350.00 

355.00 

360.00 


100.00 110.00 120.00 


TltTA (DIQUE8) 

ISO. 00 140.00 150.00 


170.00 1*0. 00 


raxxmxxraraxmxramraramxxxxxxxramra 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmx 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxx 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxxxm 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxraxxxxxra 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmmxxxxxxxxxxxxx xxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxra 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxm 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxxxxm 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxm 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxram 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxm 



7.2 Example 2: A Different Plate 


This example is another four-cornered plate, but this time the antenna is located at the 
origin, and the plate is centered along the positive Y axis and is normal to it. 

The commands were: 

$ RUN SHADOW 

SHAD0W> SET OUT PLAEX2/N0PL0T/PRINT 
SHAD0W> SET INP PLAEX2 
SHAD0W> SET UNI METERS 
SHAD0W> SET WIND 

0, 180 

2.0 

0., 180 

S. 

SHADOW > SET ANT 

0 , 0,0 

SHAD0W> SHADOW 
SHAD0W> EXIT 
$ EXIT 

The input set defining the plate was the following: 

CM: SIMPLE PLATE TEST SET 

CE: RCS INPUT SET 

UN: 

1 

PG: THE PLATE IS 400 SqUARE-METERS . 

4 0 


- 10 . 0 , 

8 , 

+ 10.0 

- 10 . 0 , 

8 , 

- 10.0 

+ 10 . 0 , 

8 . 

- 10.0 

+ 10 . 0 , 

8 , 

+ 10.0 


XQ: 

EN: 
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The output generated by the code was the following: 

ANTENNA (ECS) - ( 0.0000. 0.0000. 0.0000 ) IN MSTEIS INPUT SIT: USIE1 : [UN. NAS .KANJPUIX2 . INFj2 


0.00 20.00 
PII ♦ 4 

0.00 
5.00 
10.00 
16.00 
20.00 

25.00 

50. 00 

35.00 

40.00 

46.00 

60.00 
65.00 

eo.oo 

65.00 

70.00 

75.00 

80.00 

85.00 

90.00 

95.00 
100.00 

105.00 

110.00 
116.00 
120.00 

125.00 

150. 00 

155.00 
HO. 00 

145.00 

160.00 

165.00 

160.00 
166.00 

170.00 

175.00 

180.00 


TRETA (DECREES) 

40.00 60.00 80.00 100.00 120.00 140.00 160.00 180.00 


XXXXX XX xxxxxxxxx xxxxxxxxxxxxxxxxxxx xxxxxxxx 

xxxxxxxxxxxxxxxxxxxxmxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

mxxxxxxxxxxxxxmxxxxxxxxxxxxxxxxxxxxxxxxxxxxmra 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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7.3 Example 3: The First Plate Revisited 

The current example is deceptive. Both the input geometry and the source location are 
identical with the first plate example, but the obscuration output is identical to the second 
example! A closer of the input sets reveals the the two examples are really the same 
geometry, but defined in different orientations with respect to the Reference Coordinate 
System. The third example takes advantage of this fact and uses the SET PATTERN-CUT 
command to reorient the coordinate system of the antenna. The result is that while the 
geometry is defined the same as the first example, the output resembles the second example. 
The commands to generate the example were: j 

$ RUN SHADOW ' 

SHAD0W> SET OUT PLAEX3/N0PL0T/PRINT 
SHADOW> SET INP PLAEX 
SHADGW> SET UNI METERS 
SHAD0W> SET WIND 
0,180 
2.0 

0..180 

5. 

SHAD0W> SET ANT 

0 , 0,8 

SHADGW> SET PATT 

90., +90., 90., 0. 

SHADOW > SHADOW 
SHADOW > EXIT 
$ EXIT 

The input set defining the plate was the same one used in example one. It is: 

CM: SIMPLE PLATE TEST SET 

CE: RCS INPUT SET 

UN: 

1 

PG: THE PLATE IS 400 SQUARE -'METERS . 

4 0 

- 10 . 0 , + 10 . 0 , 0.0 
- 10 . 0 , - 10 . 0 , 0.0 
+ 10 . 0 , - 10 . 0 , 0.0 
+ 10 . 0 , + 10 . 0 , 0.0 
XQ: 

E1J: 


89 



The output generated by the code was the following: 


ANTENNA (ECS) - ( 0.0000 t 0.0000, 8.0000 ) IN METEtS 


INPUT SET: VffEBl : [EJM.NAS .MAN]PLAEX.INP}6 


0.00 

PII ♦ 
0.00 
6.00 
10.00 
16.00 
20.00 
26.00 

30.00 

36.00 

40.00 

46.00 

60.00 

65.00 

60.00 
66.00 

70.00 
T6.00 

80.00 
86.00 

90.00 

96.00 
100.00 
106.00 
110.00 
116.00 
120.00 

125.00 

130.00 

136.00 

140.00 

146.00 

160.00 

165.00 

160.00 
166.00 

170.00 

176.00 

180.00 


20.00 


40.00 


60.00 


TIETA (DEQUES) 

80 . P 0 100.00 120.00 

♦ ♦ ♦ 


140.00 160.00 180.00 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxm 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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7.4 Example 4: A Non-Interactive Version of Example 1 

This example illustrates an input set for non-interactive use of the code. The main program 
has been changed to the non-interactive version and non-interactive subroutines were not 
linked into the code. The input set is the same as Example 1, except that the source and 
window have been define using the SG and VF commands, respectively. Note that these 
commands can also be used in the interactive mode also to hard wire the antenna location 
and window as a default case. The output is not shown here because it is identical to that 
of Example 1. j 

The input set defining the plate is the following: 

CM: SIMPLE PLATE TEST SET 

CE: RCS INPUT SET 

UN: 

1 

PG: THE PLATE IS 400 SQUARE-METERS. 

4 0 

- 10 . 0 , + 10 . 0 , 0.0 
- 10 . 0 , - 10 . 0 , 0.0 
+ 10 . 0 , - 10 . 0 , 0.0 
+ 10 . 0 , + 10 . 0 , 0.0 
SG: THE SOURCE LOCATION 
0 .. 0 .. 8 . 

0. .0. .90. .0. 

- 1 , 0 . 6 , 0 . 

1 . , 0 . 

VF: WINDOW SIZE 
0 . , 0 . , 90 . , 0 . 

T.0.,2.,91 
0. ,2. ,181 
xq: 

EN: 
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7.5 Example 5: An Elliptic Cylinder 

This example is consists of one elliptic cylinder centered on the origin with its axis directed 
along the Y axis. Three different source locations are presented with this single example. 
The commands were: 

$ RUN SHADOW 

SHAD0W> SET OUT CYLEX1/N0PLQT/PRINT 

SHAD0W> SET INP CYLEX1 

SHAD0W> SET UNI METERS 

SHAD0W> SET WIND 

130,180 

0.55555556 

0..360 

5 . 

! 

! An overhead view of the cylinder, which is centered on the origin, 

! with radii of 1 and 1, with a a length of 1 meter. 

! 

SHAD0W> SET ANT 
0 , 0,4 

SHAD0W> SHADOW 
! 

! A broadside look at the cylinder. 

t 

SHAD0W> SET WIND 
45,135 
1.0 

220 .. 310 
1.25 

SHAD0W> SET ANT 
0 , 4,0 

SHAD0W> SHADOW 
! 

! Now a look at the same geometry along the axis of the cylinder. 

! 

SHAD0W> SET ANT 

4 . 0 . 0 

SHAD0W> SET WIND 
45,135 
1.0 

130 .. 220 
1.25 

SHAD0V/> SHADOW 
SHADDW> EXIT 
$ EXIT 

The input set defining the plate was the following: 

CM: SIMPLE AIRCRAFT 

CE: RCS INPUT SET 

UN: 



1 

CC: FIR8T CYLINDER 

0 .. 0 .. 0 . 


The output generated by the code was the following: 


ANTINNA (ICS) • < 0.0000. 0.0000, 4.0000 ) IN WTEIS INPUT EXT : U3II1 : [UH.NAS.KANjCTLKl .INPj4 


150.00 
PBI ♦ 
0.00 
E .00 
10.00 
IE. 00 
20.00 
26.00 

50.00 

55.00 

40.00 

45.00 

60.00 
E5.00 
60.00 

65.00 

70.00 

76.00 

80.00 
86.00 
00.00 
95.00 

100.00 

106.00 

110.00 

115.00 

120.00 

125.00 

150.00 

155.00 

140.00 

145.00 

160.00 
166.00 
160.00 

165.00 

170.00 

175.00 

180.00 

185.00 

190.00 

195.00 

200.00 
206.00 
210.00 
216.00 
220.00 
226.00 

230.00 

256.00 

240.00 

245.00 

250.00 

265.00 

260.00 
266.00 

270.00 

276.00 

280.00 

285.00 

290.00 

295.00 

500.00 

306.00 

510.00 

515.00 

320.00 

526.00 

530.00 

536.00 

340.00 

346.00 

360.00 

366.00 

360.00 


Tim (pecues) 

155.66 141.11 146.67 152.22 167.78 163.53 168.89 174.44 180.00 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



xxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxx 


xxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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ANTENNA (IC5) ■ ( 0.0000, 4.0000, 0.0000 ) IN KETEtS INPUT NET: USEI1:(IJM.NAS.PUX]CYLXX1.INP|4 


48.00 
PI1 4 
220.00 
221.26 
222.60 

223.76 
226.00 
226.26 

227.60 

228.76 

230.00 

231.26 

232.60 

233.76 

236.00 

236.26 

237.60 

238.76 

240.00 

241.26 

242.60 

243.76 

246.00 

246.26 

247.60 

248.76 

260.00 

261.25 

252.60 

253. 75 

265.00 

266.25 

267.60 

268.76 

260.00 

261.26 

262.60 

263.76 
266.00 

266.25 

267.60 

268.76 

270.00 

271.25 

272.60 

273.76 

276.00 

276.25 

277.60 

278.76 

280.00 

281.26 

282.60 

283.76 

285.00 

286.25 

287.60 

288.76 

200.00 

201.26 

202.60 
203. T6 
206.00 

206.25 

207.60 

208.76 

300.00 

301.26 

302.60 

303.76 

306.00 
306.25 

307.60 

308.76 

310.00 


65.00 


66.00 


75.00 


TIETA (DEQUES) 
86.00 06.00 106.00 
♦ 4 4 


115.00 125.00 


1S5.00 


mxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxra 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

Xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxx 
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ANTENNA (ACS) - ( 4.0000, 0.0000, 0.0000 ) IN KETEES 


INPUT SIT: Umi:[KJM.NAS.KAN]CTLZXt.INFs4 


45.00 65.00 

FBI ♦ ♦ 

130.00 

131.26 

132.60 

133.76 

136.00 

136.26 

137.60 

138.76 

140.00 

141.26 

142.50 

143.76 

145.00 

146.26 

147.60 

148.76 

160.00 

161.26 

162.60 

153.76 

155.00 
156.26 

157.60 

158.76 

160.00 

161.25 

162.60 

143.75 
166.00 

166.25 

167.60 

168.75 

170.00 

171.25 

172.60 

173.75 

176.00 

176.26 

177.60 

178.75 

180.00 

181.25 

182.60 

183.76 

185.00 

186.25 

187.60 

188.76 

190.00 

191.25 

192.60 

103.76 

195.00 

196.25 

197.60 

198.76 

200.00 

201.25 

202.60 

203.76 

205.00 

206.25 

207.50 

208.76 

210.00 

211.25 
212.60 

213.75 
216.00 

216.25 
217.60 

218.76 
220.00 


75.00 


TIETA (DEQUES) 
85.00 96.00 105.00 


116.00 125.00 m.oo 


xxxxxxx 

raraxxxrara 

xmxxxxxxxxxxxmra 

xxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxx 

nmmxximmxm 

xxxxxxxxxxxxxxx 

xxxxxxx 


f 
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7.6 Example 6: Two Elliptic Cylinders 

This example is consists of two elliptic cylinders equidistant from the origin with axes 
coincident and directed along the Y axis. Three different source locations are presented 
with this single example. 

The commands were: 

$ RUN SHADOW 

8HAD0W> 8ET OUT CYLEX2/N0PL0T/PRINT 

SHADOW> SET INP CYLEX2 

8HAD0W> SET UNI METERS 

SHADOW> SET WIND 

130,180 

0.55555556 

0. ,360 

5. 

! 

! An overhead view of the 2 cylinders with radii of 1 and 1, 

I with a length of 1 meter each. 

! 

8HAD0W> SET FILL /CYL-1 
8HAD0W> SET ANT 
0,0,4 

SHAD0W> SHADOW 
! 

SHAD0W> SET WIND 

45.135 

1.0 

220. . 310 
1.25 

SHAD0W> SET ANT 
0.4,0 

SHAD0W> SHOW FILL 
SHAD0W> SHADOW 
! 

■ SHAD0W> SET ANT 

4.0. 0 

8HAD0W> SET WIND 

46.135 

1.0 

130. . 220 
1.25 

SHAD0W> SHOW FILL 
SHAD0W> SHADOW 
SHAD0W> EXIT 
$ EXIT 

The input set defining the plate was the following: 

CM: SIMPLE AIRCRAFT 

CE: RCS INPUT SET 

UN: 


1 

CC: FIRST CYLINDER 

0 ..- 2 .. 0 . 

90 . , 0 . , 0 . , 0 . 

2 

1 . 

- 1 . 

CC: SECOND CYLINDER 

0 . ,+ 2 . , 0 . 



*« 


The output generated by the code was the following: 


ANTENNA (ICS) * ( 0.0000, 0.0000, 4.0000 ) IN HI TEAS INPUT NET: USUI: [UM.NAS.KAN]CTLR2.IIP;2 


ISO. 00 
PII «■ 
0.00 
6.00 
10.00 
16.00 

20.00 

26.00 

30.00 

36.00 

40.00 

46.00 

60.00 
66.00 

40.00 
€ 6.00 

70.00 

76.00 

80.00 
86.00 
00.00 
06.00 

100.00 

106.00 

110.00 

116.00 

120.00 

126.00 

130.00 

136.00 

140.00 

146.00 

160.00 
166.00 

140.00 

146.00 

170.00 

176.00 

180.00 
186.00 

190.00 

196.00 

200.00 
206.00 
210.00 
216.00 
220.00 
226.00 

230.00 

236.00 

240.00 

246.00 

260.00 
266.00 
260.00 

246.00 

270.00 

276.00 

280.0 0 
286 . 00 

290.00 

296.00 
300 .00 

306.00 

310.00 

316.00 

320.00 

326.00 

330.00 

836.00 

340.00 

346.00 

360.00 

366.00 

340.00 


TUTA (DICKIES) 

136.64 141.11 146.67 162.22 167.78 163.33 168.89 174.44 180.00 


XXXXOTX 

mxmxxraxxxxxx 





xmxxxxxmxxxxxxxmmxxxxxxxxxxxxxxmxxxm 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


cccccccc 

cccccccccccccccccc 

cccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccccccccccccccccccc 


cccccccccccccccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccc 

cccccccccccccccccc 

cccccccc 
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ANTENNA (IC8) • < 0.0000, 4.0000, 0.0000 ) IN KSTZIS 


INPUT SIT: Vmi:[UM.NAS.MAJtiCTUXa.IRPia 


rn 

330.00 

331.35 

333.50 

333 .75 

335.00 

336.35 

337.60 

338.75 

330.00 

231.36 

232.50 

233.76 

235.00 
236.35 

237.50 

238.75 

240.00 

241.25 

342.50 

243.76 

245.00 

246.26 

247.60 

248.75 

250.00 

251.25 

252.60 

263.75 

265.00 

266 .25 - 

267.60 

268.76 

260.00 

261.25 

262.60 

263.76 
266.00 

266.25 

267.60 

268.76 

270.00 

271.25 

272.60 

273.75 

275.00 

276.25 

277.60 

278.75 

280.00 

281.25 

282.60 
283. T6 
286.00 

286.25 

287.60 

288.75 

290.00 

291.25 

292.50 

293.75 

295.00 

296.26 

297.60 

298.76 

300.00 

301 .25 

302.60 

303.76 

306.00 

306.26 

307.60 

308.76 

310.00 


TRXTA (DECUES) 

46.00 55.00 66.00 76.00 85.00 96.00 106.00 115.00 126.00 155.00 

4 ♦ 4 ♦ 4 


4 4 4 


mxxxmmxxm 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



xxxxxxxxxxxxxxxxxxxxxx xxxxx xxxxxx xxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxra 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



xxxxxxxxxxxxxxxxxxxxcccccccccccccccccccccxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxcccccccccccccccccccccxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxccccc c c ccccccc cc c c cccxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxcccccccccccccccccccccxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxcccccccccccccccccccccxxxxxxxxxxxxxxxxxxxx 



xxxxxxxxxxxxxxxxxxxxcccccccccccccccccccccxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxcccccccccccccccccccccxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxcccccccccccccccccccccxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxx cccccc c c ccc cccccc c c c cxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxcccccccccccccccccccxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxcccccccccccccccccccxxxxxxxxxxxxxxxxxxxxx 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


xxxxxxx xxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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ANTENNA (ACS) ■ ( 4.0000, 0.0000, 0.0000 ) IN KZTEKS 


45.00 
PEI ♦ 

130.00 

131.25 

132.60 

133.75 

135.00 

135.25 
137.50 

138.75 

140.00 

141.26 

142.60 

143.76 

145.00 

146.25 

147.60 

148.75 

160.00 

161.25 

152.60 

163.76 

155.00 

156.25 

167.60 

158.76 

160.00 

161.25 

162.60 

163.76 
166.00 

166.26 

167.60 

168.76 

170.00 
171.26 

172.60 

173.76 

175.00 

176.25 

177.60 

178.76 

180.00 

181.25 

182.50 

183.76 
186.00 

186.26 

187.60 

188.76 
100.00 

101.25 

102.50 

103.76 

105.00 

106.26 

107.50 

108.76 

200.00 
201.26 

202.50 

203.76 
206.00 

206.25 

207.50 

208.75 
210.00 

211.26 

212.60 

213.75 
216.00 
216.25 
217.60 

218.76 
220.00 


INPUT Sill USIK1 : [KJM.NAS.MAN]CYL£X2.INP;2 
TIZTA (DECinS) 

56.00 65.00 76.00 85.00 05.00 105.00 115.00 125.00 136.00 


xxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxx 


xxxxxmmxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

wxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


xxmxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxx 


xxxxxxxxxxxxxxxxx 


xxxxxxxxxxxxx 

xxxxxxx 


ccccccc 

ccccccccccccc 

ccccccccccccccccc 

ccccccccccccccccccc 

ccccccccccccccccccccc 

ccccccccccccccccccccc 

ccccccccccccccccccccccc 

ccccccccccccccccccccccc 

ccccccccccccccccccccccccc 

ccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccc 



7.7 Example 7: A Space Station Model 

This example uses a space station, shown in Figure 7.1, that has been provided by NASA, 
Langley. The computer model is illustrated in Figure 7.2. It is an demonstrates how to use 
the windowing and highlighting commands (SET FILL) to effectivly show obscuration. 
The commands were: . 

$ RUN SHADOW 

8HAD0W> SET OUT AN5S1 /PRINT/HOECHO 

SHAD0W> SET INP AN5S1 

SHAD0W> SET UNI FEET 

SHAD0W> SET WIND 

0,180 

2.0 

20., 290 

2.5 
! 

! Display ONLY plate 6. 

! 

SHAD0W> SET FILL " H /PLATE-6 
SHAD0W> SET ANT 

25, 15. 256.5 
SHADOW > SHADOW 
! 

! Now make plate 6 stand out from the crowd, 

! 

SHAD0W> SET FILL "!" /PLATE- (6,$) 

SHAD0W> SET ANT 

25, 15, 256.5 
SHAD0V/> SHADOW 
$ EXIT 

The input set defining the plate was the following: 

CM : *******+*CASE AN5S1********** 

CM: ********0BSCURATI0N ********** 

CE: 

LP: 

F 

UN: UNITS IN FEET 
2 

CM: UPPER BOOM 
CE: 

PG: BOTTOM 
4 0 

4.5 49.5 387. 

4.5 -49.5 387. 

-4.5 -49.5 387. 

-4.5 49.5 387. 

PG; +X SIDE 
4 0 



4.5 -40.5 396. 

4.5 -49.6 387. 

4.6 49.6 387. 

CM: UPPER KEEL 
CE: 

PG: -Y #1 
4 0 

4.6 -4.5 270. 

4.6 -4.6 387. 

-4.5 -4.5 387. 

-4.6 -4.5 270. 

PG: +Y #1 
4 0 

4.5 4.6 270. 

-4.6 4.6 270. 

-4.6 4.6 387. 

4.5 4.6 387. 

PC: +X 8 IDE 
4 0 

4.5 4.6 387. 

4.5 -4.6 387. 

4.5 -4.5 270. 

4.6 4.6 270. 

CM: LOWER KEEL t EXTENSION 
CE: 

PG: +X SIDE 
12 0 

4.5 22.5 0. 

4.5 22.5 99. 

4.5 4.6 99. 

4.5 4.5 261. 

4.6 -4.6 261. 

4.6 -4.6 99. 

4.5 -22.6 99. 

4.6 -22.6 0. 

4.5 -13.6 0. 

4.6 -13.6 54. 

4.6 13.5 54. 

4.5 13.5 0. 

PG: -Y #1 

4 0 

4.6 -22.5 0. 

4.5 -22.5 99. 

-4.5 -22.6 99. 

-4.5 -22.5 0. 

PG: -Y #2 

4 0 

4.6 -22.5 99. 

4.6 -4.6 99. 

-4.6 -4.5 99. 

-4.5 -22.6 99. 
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PG: -Y #3 
4 0 

4.5 -4.5 99. 

4.5 -4.6 261. 

-4.5 -4.5 261. 

-4.5 -4.5 99. 

PG: +Y #1 
4 0 

4.5 22.6 0. 

-4.6 22.5 0. 

-4.6 22.6 99. 

4.5 22.5 99. 

PG: +Y #2 
4 0 

4.5 22.5 99. 

-4.5 22.5 99. 

-4.5 4.6 99. 

4.5 4.5 99. 

PG: +Y #3 
4 0 

4.5 4.5 99. 

-4.5 4.5 99. 

-4.5 4.5 261. 

4.6 4.5 261. 

CM: NON-ROTATING SECTION 
CM: OF SOLAR PANEL BOOM 
CE: 

PG: BOTTOM 
4 0 

4.5 49.5 261. 

4.5 -49.5 261. 

-4.5 -49.5 261. 

-4.5 49.5 261. 

PG: +X SIDE 
4 0 

4.5 49.5 270. 

4.5 -49.5 270. 

4.5 -49.5 261. 

4.5 49.5 261. 

CM: ROTATING SECTION OF 
CM: SOLAR PANEL BOOM 
CE: 

RT: -Y SIDE 
0. -54. 265.5 
0. 0. 90. 0. 

PG: TOP 
4 0 

4.5 4.5 4.5 

-4.5 4.54.5 

-4.5 -76.5 4.5 

4.5 -76.5 4.5 
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PG: BOTTOM 
4 0 

4.6 4.6 -4.6 

4.6 -76.6 -4.6 
-4.6 -76.6 -4.6 
-4.5 4.6 -4.6 

PG: +X SIDE 
4 0 

4.6 4.6 4.5 

4.6 -76.6 4.5 

4.6 -76.5 -4.5 

4.6 4.6 -4.5 

PG: -X SIDE 
4 0 

-4.6 4.6 4.6 

-4.6 4.6 -4.6 

-4.6 -76.5 -4.6 
-4.6 -76.6 4.6 

CM: UPPER OUTBOARD SOLAR PANEL 
CE: 

RT: -Y OUTBOARD 
0. -132. 265.6 

0. 0. 90. -52. 

PG: -X 82X33 

4 0 

-1. 16.5 89. 

-1. 16.6 7. 

-1. -16.6 7. 

-1. -16.5 89. 

PG: UPPER 33 
4 0 

1. 16.6 89. 

-1. 16.6 89. 

-1. -16.5 89. 

1. -16.5 89. 

PG: LOWER 33 
4 0 

1. 16.5 7. 

1. -16.6 7. 

-1. -16.6 7. 

-1. 16.6 7. 

PG: INSIDE 82 
4 0 

1. 16.5 89. 

1. 16.5 7. 

-1. 16.5 7. 

-1. 16.5 89. 

CM: LOWER OUTBOARD SOLAR PANEL 
CE: 

PG: -X 82X33 
4 0 


- 1 . 16.6 -89. 

! 

- 1 . -16.6 -89. 
- 1 . -16.6 -7. 
- 1 . 16.6 -7. 


PG: LOWER 33 


4 0 


1. 16.6 -89. 


1 . -16.6 -89. 


-1. -16.6 -89. 
-1. 16.6 -89. 

• 

PG: UPPER 33 


4 0 


1. 16.6 -7. 
-1. 16.6 -7. 


- 1 . -16.6 -7. 


1 . -16.6 -7. 
PG: INSIDE 82 


4 0 

» 

1. 16.6 -89. 


-1. 16.6 -89. 


- 1 . 16.5-7. 

«■! 

1 . 16.5 -7. 


CM: UPPER INBOARD SOLAR PANEL 
CE: 

■7 

RT: -Y INBOARD 


0. -78. 265.5 
0. 0. 90. -52. 
PG: -X 82X33 


4 0 

-1. 16.5 89. 
- 1 . 16.5 7. 


- 1 . -16.5 7. 


- 1 . -16.5 89. 
PG: UPPER 33 


4 0 

| 

1 . 16.5 89. 


- 1 . 16.5 89. 
-1. -16.6 89. 


1. -16.5 89. 


PG: LOWER 33 
4 0 


1 . 16.5 7. 

j 

1 . -16.6 7. 
- 1 . -16.5 7. 
- 1 . 16.5 7. 


PG: 82 INSIDE 
4 0 

# 

1. 16.5 89. 


1 . 16.6 7. 
- 1 . 16.5 7. 

• 

-1. 16.5 89. 

*** 
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PG: 82 OUTSIDE 
4 0 

1. -16.5 89. 

-1. -16.5 89. 

-1. -16.6 7. 

1. -16.5 7. 

CM: LOWER INBOARD SOLAR PANEL 
CE: 

PG: -X 82X33 
4 0 

-1. 16.5 -89. 

-1. -16.5 -89. 

-1. -16.5 -7. 

-1. 16.5 -7. 

PG: LOWER 33 
4 0 

1. 16.5 -89. 

1. -16.6 -89. 

-1. -16.5 -89. 

-1. 16.5 -89. 

PG: UPPER 33 
4 0 

1. 16.5 -7. 

-1. 16.5 -7. 

-1. -16.5 -7. 

1. -16.6 -7. 

PG: 82 INSIDE 
4 0 

1. 16.5 -89. 

-1. 16.5 -89. 

-1. 16.6 -7. 

1. 16.5 -7. 

PG: 82 OUTSIDE 
4 0 

1. -16.5 -89. 

1. -16.5 -7. 

-1. -16.5 -7. 

-1. -16.6 -89. 

CM: ROTATING SECTION OF 
CM: SOLAR PANEL BOOM 
CE: 

RT: +Y SIDE 
0. 54. 265.5 
0. 0. 90. 0. 

PG: TOP 
4 0 

4.5 -4.6 4.6 
4.5 76.6 4.5 
-4.5 76.5 4.5 
-4.6 -4.5 4.5 
PG: BOTTOM 



4 0 

4.5 -4.5 -4.6 
-4.6 -4.5 -4.5 
-4.5 76.5 -4.5 

4.5 76.5 -4.6 
PG: +X SIDE 
4 0 

4.5 -4.5 4.5 

4.5 -4.5 -4.5 

4.5 76.5 -4.5 

4.6 76.5 4.6 
PG: -X SIDE 
4 0 

-4.5 -4.6 4.6 
-4.5 76.5 4.5 
-4.6 76.5 -4.5 
-4.5 -4.5 -4.5 

CM: UPPER OUTBOARD SOLAR PANEL 
CE: 

RT: +Y OUTBOARD 
0. 132. 265.5 

0. 0. 90. -52. 

PG: -X 82X33 

4 0 

-1. 16.5 89. 

-1. 16.5 7. 

-1. -16.5 7. 

-1. -16.5 89. 

PG: UPPER 33 
4 0 

1. 16.5 89. 

-1. 16.5 89. 

-1. -16.5 89. 

1. -16.5 89. 

PG: LOWER 33 
4 0 

1. 16.5 7. 

1. -16.5 7. 

-1. -16.5 7. 

-1. 16.5 7. 

PG: INSIDE 82 
4 0 

1. -16.5 89. 

-1. -16.5 89. 

-1. -16.5 7. 

1. -16.5 7. 

CM: LOWER OUTBOARD SOLAR PANEL 
CE: 

PG: -X 82X33 
4 0 

-1. 16.5 -89. 
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-1. 16.6 -7. 

PC: LOWER 33 
4 0 

1. 16.6 -89. 

1. -16.5 -89. 

-1. -16.5 -89. 

-1. 16.6 -89. 

PG: UPPER 33 
4 0 

1. 16.6 -7. 

-1. 16.5 -7. 

-1. -16.6 -7. 

1. -16.5 -7. 

PG: INSIDE 82 
4 0 

1. -16.5 -89. 

1. -16.6 -7. 1 

-1. -16.5 -7. 

-1. -16.6 -89. 

CM: UPPER INBOARD SOLAR PANEL 
CE: 

RT: +Y INBOARD 
0. 78. 265.5 

0. 0. 90. -62. 

PG: -X 82X33 

4 0 

-1. 16.5 89. 

-1. 16.5 7. 

-1. -16.5 7. 

-1. -16.5 89. 

PG: UPPER 33 
4 0 

1. 16.5 89. 

-1. 16.5 89. 

-1. -16.5 89. 

1. -16.6 89. 

PG: LOWER 33 
4 0 

1. 16.5 7. 

1. -16.5 7. 

-1. -16.6 7. 

-1. 16.6 7. 

PG: 82 OUTSIDE 
4 0 

1. 16.5 89. 

1. 16.5 7. 

-1. 16.6 7. 

-1. 16.6 89. 

PG: 82 INSIDE 



4 0 

1. -16.5 89. 

-1. -16.5 89. 

-1. -16.6 7. 

1. -16.5 7. 

CM: LOWER INBOARD SOLAR PANEL 
CE: 

PG: -X 82X33 
4 0 

-1. 16.5 -89. 

-1. -16.6 -89. 

-1. -16.5 -7. 

-1. 16.5 -7. 

PG: LOWER 33 
4 0 

1. 16.5 -89. 

1. -16.5 -89. 

-1. -16.5 -89. 

-1. 16.5 -89. 

PG: UPPER 33 
4 0 

1. 16.5 -7. 

-1. 16.5 -7. 

-1. -16.5 -7. 

1. -16.5 -7. 

PG: 82 OUTSIDE 
4 0 

1. 16.5 -89. 

-1. 16.6 -89. 

-1. 16.5 -7. 

1. 16.5 -7. 

PG: 82 INSIDE 
4 0 

1. -16.5 -89. 

1. -16.5 -7. 

-1. -16.5 -7. 

-1. -16.5 -89. 

PP: 

T 

T 8.186 4.87 
180. -180. -30. 

-40 40. 4. 

XQ: EXECUTE CODE 
EN: END CODE 

The output generated by the code was the following: 

ANTENNA (ACS) • ( 7.6200, 4. 5720. 78.1812 ) IN METERS INPUT SET: USER1 : (HN.NA8.KAN] AN681 .INP; l 

THETA (DEGREES) 

0.00 20.00 40.00 60.00 80.00 100.00 120.00 140.00 160.00 180.00 

PH* ♦ ♦ ♦’ 4 4 4 4 4 4 

20.00 
22.60 
26.00 
27.60 


n 


l 
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L 


80.00 

? 2.60 

86.00 

87.60 

40.00 

42.60 

46.00 

47.60 

60.00 

62.60 

66.00 

67.60 
60.00 

62.60 

66.00 

67.60 

70.00 

72.60 

76.00 

77.60 

80.00 

82.60 

86.00 

87.60 

00.00 

02.60 
06.00 
07.60 

100.00 

102.60 

106.00 

107.60 

110.00 

112.60 
116.00 

117.60 

120.00 

122.60 
126.00 

127.60 
180.00 

182.60 

136.00 

187.60 

140.00 

142.60 

146.00 

147.60 

160.00 

162.60 
166.00 

167.60 
160.00 

162.60 
166.00 

167.60 

170.00 

172.60 

176.00 

177.60 

180.00 

182.60 
186.00 

187.60 

100.00 

102.60 
106.00 

107.60 

200.00 

202.60 
206.00 

207.60 

210.00 

212.60 
216.00 

217.60 

220.00 

222.60 
226.00 

227.60 

230.00 

232.50 

235.00 

237.60 

240.00 

242.50 

245.00 


PPP 

PPP 

PPP 

PPP 

PPP 

PPP 

PPP 

PPP 

PPP 

PPP 

PPP 


PP 

PP 

PP 

PP 

PP 

PP 

F M^^^ PP1 ’ rPPPPP, ’ , ' P, ’ , ’ , ’ PI ’ , ’ P, ’ pp, ’ I ' I ’ ,,I ’>’FPPPPPPPFFpp 

ppppppppppppppppppppppppppppppp ^ pppp ^^^^^^ 

PPPPPPPPPPPPPPPPppppppppppppppppppppppppppppppp 

PPPPPPPPPPPPPPPPppPPppppppppppppppppppppppp 

PPPPPPPPPPPPPPPPPppppppppppppppppp pp pp p ppppp 

PPPPPPPPPPPPPPPPpPppppppppppppppppppppppppppp 

PPFPPPPPPPPPPPPpppppppppppppppppppppppppppppppp 


PP 

PP 

PPP 

PP 

PPPP 

PPPP 

PPPP 

PPPP 
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247.50 

260.00 

252.50 

266.00 

257.60 

260.00 

262.60 

266.00 

267.50 

270.00 

272.50 

275.00 

277.60 

260.00 

282.60 

285.00 

287.60 

290.00 
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AXTtm (ICS) » < 7. MOO, 4.6720, 78.1812 ) IN WTU8 INPUT SIT: USII1 : tEJM.NA5.MAN] AN5S1 .INP;1 

Tim (DICUES) 

0,00 20.00 40.00 00.00 80. OQ 100.00 120.00 140.00 180.00 180.00 

PH * ♦ ♦ ♦ ♦ 4 ♦ 4 4 4 

20.00 
22.60 
26 .00 

27.60 

50. 00 

32.60 

56.00 
ST. 60 

40.00 

42.60 

46.00 
4T.60 

60.00 

62.60 

66.00 

67.60 
60.00 

62.60 

66.00 

67.60 

70.00 

72.60 

76.00 

77.60 

80.00 

82.60 

86.00 

87.60 
90.00 

92.60 

*5>oo itiiiiiiiimm iimiittiiiui!i 

*7.60 iiniHimiim itimmimiiiii 


100.00 




Ml 

MM! 

tiiiiiiimmiimitmMMitiiiiiiiitiiiii 


102.60 




Iff 

HIM 

II 1 1 Ml 1 !!!!!!! 1 11 11! M M 1 1 It 1 1 1 M 1 It 1 II 1 1 1 1 


106.00 




III 

Mill 

1 It 1 1 11 1 1 1 MMM 11IM1M M t IMI 1 II 1 Mllll It ! 1 


107.60 




MM 

HIM 

1 1 ! ! I11111MMMMMM 1 1 1 II 1 1 1 1 1 1 1 MMMI 1 1 M 


110.00 




IMI 

Mill 

1 1 ! 1 11I111MM t MM 1 M 1 II 1 1 1 M 1 1 If It 1 MII 1 It 1 


112.60 




MM 

MM! 

1 1 1 1 1 M 1 1 1 M M M 1 It M M 1 1 1 1 1 ! 1 1! 1 1 1 1 1 M ! 1 1 M 1 


116.00 




MM 

MM! 

1 1 1 1 ! 1 1 1 1 1 1! 1 M 1 1 11 1 1 1 1 II II I It 1 1 M f 1 1 1 ft 1 ! 1 M 


117.60 




MM 

mu 

II Mil MIMIIMI) M II 1 M t II 1 MM 1 ! It 1 II 1 Ml M 


120.00 

n 



MM 

MM! 

IIMHIlttHHHtmmilf If MMMf MMHMMI 


122.60 

n 



MM 

MM! 

llimitltmtlltmiMIIMIIMMIMIM Mill 


126.00 

in 



MM 

! Ml! 

M ! 1 1 1 1 ill M11MMI 1 11 1 f 1 1 If IMI 1 1 1 1 If II 1 1 1 It! 


127.60 

Ml 





Ml!!!!!! 


**0.00 

him 





1IMMMI 


1S2.60 

MM 





MMMMM 


136.00 

MM 







1S7.60 

MM 





M1MMMM 


140.00 

MM 





Mill fllll) 


142.60 

MM 





MMHMMI) 


146.00 

MM 





MMMMM! 


147.60 

MM 





MMMMM11 


160.00 

Ml 







162.60 

Ml 





MMMMMM 


166.00 

Ml 







167.60 

Ml 







180.00 

fill 





MMMMM M 1 

til 

182.60 

MM 






mi 

185,00 

imi 






iim 

167,60 

MM 





MMMMMM! 

1189 

170.00 

Ml 





11 1 1 1 M M M 1 It 

rill 

172.50 

Ml 





MMMMM IMI 

1888 

176.00 

Ml 





MMMMMMM 

)l!9 

177.50 

1 1 1 





MMMMMM!! 

1918 

180.00 

Ml 





! M II 1 1 1 ! It 1 1 1 

1888 

182.50 

Ml 





MMMMMMM 

1888 

186.00 

Ml 





MMMMMMM 

1888 

187.50 

Ml 





MMMMMMM 

!88 

100.00 

Ml 






1 88 

192.60 

Mil 





1 1 1 II II 1 1 1 II 1 

188 

195.00 

Mil 





MMMMMM! 

!88 

197.60 

MM 





IIMIIMIMM 

! 1 88 

200.00 

i mm 


Ml 

!!!!! 

MM! 

1 II 1 1 1 1 II 1 1 1 1 II 1 1 ! ! I II 1 1 1! 1 1 1 M 1 1 M 1 ! 1 1 ! I ! ! 1) M MMMItl 

t M 188 

202.60 

HIM! 


m 

mu 

uni 

1 1 1! II ! t It! 1 1 1 1 1 1 1 ! 1 ! 1 If 1 1 1 1 1 1 1 1 ! ! 1 M 1! HUM UMIMM! 1 1! M88 

206.00 

mm 


it* 

mu 

mu 

Ml t M t It M M II M ! ! M M ft 1 11 1 M 1 1 1 1 1 ! 1 1 1 1 1 1! M Ml M M 1 M ! M fit 

207.60 

mm 


1M 

mu 

MM! 

MMMMMM I888888888888l8888ttt88t888t$8$88888888tt88 

88888 

210.00 

III!!! 


Ml 

mu 

mil 

1 M Ml ! ! ! ! Ml I888888l88888888lt«$tm8tum8tf 18888888 

88888 

212.60 

MMM 


lit 

mn 

him 


88888 

216.00 

(MM! 


Ml 

MM! 

1 MM 

MMMMMM! !888888888888888l8$t*tMm$lt8$8l8888t888 

88888 

217.60 

mm 


Ml 

MM1 

MM! 

mimmmmm immmmMMMttmmmmmmm 

8888 

220.00 

Him 


Ml 

MM1 

IMM 

mmmmmm! timMimtttMMMMimfmtmmitMi 

8888 

222.50 

Mill 


Ml 

Mill 

MM! 

iiiiiiiMim imnmmmmmmmmmmmm 

8888 
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225.00 Ilf I till II 

227.50 Mil jjl 1 1 

230.00 tim i tm 

232.60 fill MM 

235.00 mu tm 

237.50 Mil | 1f 

240.00 lint I) 

242.50 Hill) || 

245.00 mm i 

247.60 mil 

260.00 mi mimmmt 

262.60 m mimmmm 

265.00 mimmmm 

267.60 mmtmmmi 

250.00 tnmmmmm 

2 * 2.60 immimmmi 

256.00 mu t itm: 


257.60 

270.00 

272.60 

276.00 

277.60 

280.00 

282.60 
286.00 
287.50 
200.00 


MM 
HIM 
1 1 Ml 
MM 
HIM 
HIM 
HIM 
MM 


I 

I 

M 

Ml 

Ml 
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7.8 Example 8: Another Look at the Space Station 

This example presents a full view of the space station in the previous, except that the 
output is generated with the NCAR graphics interface. The non-interactive input is the 
same. The standard fill character procedure is used and a complete window is displayed 
with two degree resolution in theta and phi. The NCAR plot has been obtained using the 
plotting code in Chapter 13. The shadow map produced is shown in Figure 7.3 
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Chapter 8 


Introduction 


The obscuration code SHADOW, is designed to produce a projected shadow map onto the 
far zone radiation sphere of an antenna in a complex environment. The map is efficiently 
calculated by directly tracing the outer boundaries of the multisided flat plates and compos- 
ite cone frustum cylinders onto theta - phi space and then Ailing between the boundaries 
along raster lines. The code has been developed to be interactively run on a DEC VAX com- 
puter. It can, also, be run non-iteractively on any other computer by simply substituting 
the small main program and leaving out the interactive subroutines. 

Part I of this manual is a user’s guide which treats the code from the users standpoint 
without much particular details about the coding. Part II, given here, is intended to give 
some details about the internal workings of the code. It gives more specific information 
about the coding itself. It is of importance primarily for people implementing the code 
on a new system, for debugging errors, or for making changes in how the code operates. 
An overview of how the code is organized is given in Chapter 9. A listing of the code is 
given in Chapter 10. It is broken up into three parts for the non-interactive, FORTRAN 
77 subroutines and into the interactive VAX dependent subroutines. The implementation 
of the code on a VAX is given in Chapter 11 and a brief description of implementing the 
code on a non- VAX computer is given in Chapter 12. A listing of an NCAR plotting code 
for the shadow map is given in Chapter 13. 



Chapter 9 


Code Organization 


The obscuration code SHADOW is designed to produce a projected shadow map onto the 
far zone radiation sphere of an antenna in a complex environment. The map is efficiently 
calculated by directly tracing the outer boundaries of the multisided flat plates and compos- 
ite cone frustum cylinders onto theta - phi space and then filling between the boundaries 
along raster lines. 

The code has been developed with efficiency and ease of use as primary considerations. 
Often with other similar codes the engineer is not part of a tight interactive design loop. 
In order to facilitate this capability, while maintaining necessary transportability, the code 
has been split into two versions so that it can be run in two different modes, interactively 
or non-interactively depending on the computer being used. In both versions the flow 
of program control is basically the same. The main program either accepts interactive 
commands from the terminal and acts on those commands, or reads a different set of non- 
interactive commands from the input file and processes those. In both cases, the main 
program loops on input commands and calls appropriate subroutines for th° creation and 
output of the shadow map. 

The map creation is broken down into separate phases for each class of geometry being 
processed. Plates and elliptic cylinders are the two phases currently implemented. Each 
processing phase works by projecting each member of each class of geometry onto the 
far-zone sphere. The code implements the shadow map by mapping the far zone sphere 
in theta-phi space into a rectangular character array. The size of the array and hence 
the angular resolution of the resulting map is determined by the user at run time. After 
a member is projected, the far-zone grid (array) is processed in a raster-scan fashion to 
implement an area fill for the member. In this way every geometric entity is processed 
and included in the array. After all items of all classes have been processed, the output 
routines format and display/dump the resulting map. The main program then readies itself 
to execute yet another command or commands. 

The source code is also organized into two groups of files depending upon the desired 
mode of operation. The code is organized this way so that minimum source modification 
is necessary in order to run in either interactive (in the case of a VAX computer) or non- 
interactive modes. The chapter on Non- VAX implementation describes the conversion of 
the source to non-interactive mode in detail. 

Since the map computation and display routines are identical for both modes of oper- 
ation, the transportability of generated results depends on the numerical behavior of the 



target machine an not on implementational differences between the interactive and 
interactive versions. 


* 
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Chapter 10 


Listings of the Code 


This chapter describes the operation of the routines and functions used by the program. 
Each listing is presented in alphabetical order and is preceded where appropriate by a short 
explanation of methods used. 


10.1 VAX/VMS Subroutines 


The following routines are for the interactive implementations of the code. They are used 
in conjunction with the routines in this chapter that are common to both versions. 


s .1 , ujtaariiLroBy 

MAIN PROGRAM 


This is the main routine for the interactive versions of the program. It calls a one-time 
initalization routine and then executes commands until finished. There is another slightly 
different main program for the non-interactive code. 


0001 


PROGRAM SHADOW 

0002 

C!!l« 

0003 

cm 

Thin program vat written at the ohio state university 

0004 

cm 

electroecience laboratory, any problem* or connents 

0005 

cm 

can be referred to: 

0006 

CM? 


0007 

cm 

LASZLO A. TAKACS OR RONALD J. MARHEFKA 

0008 

C! ! ! 

ELECTROSCIENCE LABORATORY 

0009 

Ct f ! 

1320 KINNEAR RD. 

0010 

cm 

COLUMBUS .OHIO 43212 

0011 

cm 

PHONE: (614) 422-6762 OR 422-6848 

0012 

cm 


0013 

C! ! f 

This program provides a printer output of the geometrical 

0014 

C! 1 \ 

shadow boundrlee of a structure of plates and cylinders input 

0016 

C! ! 1 

as valid input sets to the numerical code. 

0016 

cm 


0017 

cm 

This program was written 16-JUN-1984. 

0018 

cm 

The latest modification occurred 18-DEC-1985. 

0019 

cm- 

- 

0020 

cm 


0021 

cm 

Beginning of the main routine. 



0022 cm Initialisa any SKAOQ* data atrnctnras. 

0023 cm 

0024 CALL INIT 

0025 cm 

0026 C!lt Call tha lntaractlva tannlnal intarfaca. This rout ins calls all 

0027 Cl!! othsr subrontinas. 

0028 cm 

0029 CALL INTKAC 

0030 cm 

0031 cm Finished. 

0032 cm 



SUBROUTINE INIT 


0001 

0002 

0003 

0004 

0170 

0171 

0172 

0173 

0174 
017E 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 
0226 


C 

SUBROUTINE INIT 
INCLUDE 'SHACOM.FOR' 

CM! 

CM! This subroutine initializes the main routine. 

CM! It is meant to be called once, at the start of the program. 

cm 

cmmmmmmmmmmmmmmmmmmmmmmnm 


CM! i 
CM! NOTICE: t 
Cl!! This routine performs actions which do not apply to the 1 
Cl I! non-interactlvs mode of operation. In particular, the variables ! 
CM I which are intiallzed here may be reinitialized elsewhere in both 1 
CM! interactive and non-lnteractlve versions. Altering these ! 
C ! ! 1 parameters may or may not achieve the expected results. 1 
C! M I 


C M ! I! t ! I ! t M ! M I! I! !! 1 1! M 1 1 1! ) ! M M M M 1 1 M M M M t M M Ml 11 M Ml M M M 

cm 

C! 1 1 Initialize variables to their default values. 

CM! 

CM! The lower/higher theta end of the range. 

CM! 

THET1 = 0.0 * RPD 

THET2 = 180.0 * RPD 

CM! 

CM! The lower/higher phi end of the range. 

Cl 1 1 

PHI «= 0.0 * RPD 

PH2 = 360.0 * RPD 

CM! 

C ! ! f The desired theta/phi resolution in units of radians/pixel. 

cm 

RESTH = 2. * RPD 

RESPH ■ 2. * RPD 

C*)$ 

C||$ Rotate translate default data RT: 

cm 


IHZP 

0 . 

PHZP 

0 . 

IHXP « 

90. 

PHXP 

0 . 

TRS( 1 ) 

= 0 . 

TRS( 2 ) 

= 0 . 

TRS( 3 ) 

= 0 . 

VRS( 1, 1 

) « 1. 


VRS( 1, 2 ) = 0. 

VRS( 1, 3 ) = 0. 

VRS( 2, 1 ) = 0. 

VRS( 2, 2 ) » 1 . 

VR5 ( 2, 3 ) = 0. 

VRS( 3, 1 ) ■= 0. 

VRS ( 3, 2 ) 8 0, 

VRS( 3, 3 ) * 1. 

cm 

CIU Units default data UN:, UF: 
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0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 
0262 

0263 

0264 
0266 
0266 
0257 
0268 


c$M 

IUNIT « 1 

UNITF « 1.0 

UNITN - UNIT( IUNIT ) 

UNITS - UNITN * UHITF 

CUt 

C|$$ Pattern cut orientation data VF: 

cm 

VPC( 1. 1) »1. 

VPC( 1, 2 ) « 0. 

VPC( 1. 3 ) * 0. 

VPC( 2, 1 ) « 0. 

VPC< 2. 2 ) « 1. 

VPC( 2. 3 ) - 0. 

VPC< 3. i > « 0. 

VPC( 3. 2 ) « 0. 

VPC( 3. 3 ) s 1. 

cm 

C!!! Open some standard input/output files for the VMS support routines. 
CIH Units 5 and 6 are reserved for input set reading and echoing by the 
C!l! input set processor. NOTE: This is operating system dependent 
C1)f stuff. This is the natural place for It since it is intlallzed 
Cl!) at the start. 

cm 

OPEN ( VNIT-i .FILE* * SYS$INPUT * , TYPE* 1 OLD 1 ) 

OPEN ( UNIT=2 , F1LE= * SYS$ OUTPUT ' , TYPE* 1 UNKNOWN 1 ) 

cm 

CU! End of program intlallzatlon. 

cm 


RETURN 

END 



SUBROUTINE INTRAC 


This is the interactive commands subroutine called by the main routine. It fields com- 
mands typed by the user and executes the appropriate service routines. Also listed here are 
two I/O function subprograms which are indirectly invoked by INTRAC. They are called 
GETJNPUT and PUT-OUTPUT. 

0001 c 

0002 SUBROUTINE INTRAC 

0003 I 

0004 !♦♦ 

0005 ! FACILITY: INTERACTIVE TERMINAL COMMAND INTERFACE 

0006 f 

0007 ! ABSTRACT: 

0008 I 

0000 1 This procedure prompts a terminal for input and parsss/dlspatchas 

0010 ! through CLI$ routines. 

0011 ! 


0012 

1 ENVIRONMENT: 

VAX/VMS V.r.ion 4.x 

0013 

I 


0014 

! AUTHOR: Laezlo 

Takaca CREATION DATE: 20-AUG-1986 

0015 

! 


0016 

! MODIFIED BY: 


0017 

! 


0018 

! 1-001 - Original, 

LAT 20-AUC-1B86 

0010 

!-- 


0020 

IMPLICIT 

NONE 

0021 

INCLUDE 

' (IRMSDEF) 1 

0463 

INCLUDE 

' (ISMGDEF) ’ 

0774 

INCLUDE 

‘ SHACOM.FOR’ 

0040 

EXTERNAL 


0041 

♦ COMMAND 

.TABLES, 1 Uaar-dtflnad com 

0042 

4 GET.INPUT 1 The I/O routine at the b 

0043 

1 


0044 

INTEGER +4 


0045 

4 

STS, 

0046 

4 

READ.STS, 

0047 

♦ 

CL II PRESENT, 

0048 

4 

CLI$DISPATCH, 

0040 

4 

CLI$DCL_PARSE, 

0060 

4 

CLItGET.VALUE, 

0051 

4 

SMG$LOAD_KEY_DEFS , 

0052 

4 

SMG $ CREA TE_KEY_ TABLE, 

0063 

4 

SMCIDELETE.VIRTUAL .KEYBOARD , 

0054 

4 

SMG$CREATE_VIRTUAL.KEYBOARD 

0055 

! 



0056 t Maks a key definiton table. 

0057 J 

0068 STS = SMG$CREATE.KEY_TABLE( KEYTBL ) 

0060 IF (.NOT. STS) CALL LIB|SIGNAL( XVAL(STS) ) 

0060 ! 

0061 ! Load the definitions from the key definition file. Ignore "file not f 

0062 ! 

0063 STS = SMC*LOAD_KEY.DEFS( KEYTBL, ’ SHADOW. KPD’ ) 

0064 IF ((.NOT. STS) .AND. (STS ,NE. RMSl.FNF)) 

0066 4 CALL LIB|SIGNAL( XVAL(STS) ) 

0066 I 

0067 ! Get a handle on SYS$INPUT. 

0068 1 
0060 


READ. STS = SMG I CREA TE.V IRTUAL.KEYB 0 ARD ( KBDID ) 


0970 

0971 
0979 

0973 

0974 
0976 

0976 

0977 
0976 

0979 

0980 

0981 

0982 

0983 

0984 

0985 
0086 

0987 

0988 
0980 

0990 

0991 

0992 

0993 

0994 
0996 

0996 

0997 
0001 
0002 

0003 

0004 
0006 
0006 

0007 

0008 
0460 
0616 

0617 

0618 

0619 

0620 
0621 
0622 

0623 

0624 

0625 

0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 
0001 
0002 

0003 

0004 
0006 
0006 


I 

1 Ths main procasting loop. Kssp raading Input until ths user typas EOF 

DO WHILE ( READJJTS .WE. RMSI..E0F ) 

I 

I Road from Input and parts ths command. 

I 

READ. STS * CLI$DCL_PARSE( , 

4 COMMAND.TABLES , 

4 GET.INPUT, 

4 GET.INPUT, 

4 'SHADOW> ' ) 

I 

I If ths command parts was succsttful, sxscuts ths comnand-routina, 

! 

IF ( .NOT. (.NOT. READ.STS) ) CALL CLI$DISPATCH() 

I 

END DO 
I 

! Gst rid of ths virtual keyboard. 

! 

STS * SMGlDELETE.VIRTUAL JCETBOARD ( KBDID ) 

IF ( .NOT. STS ) CALL LIB$SIGNAL( XVAL(SIS) ) 

I 

I Rsturn 
! 

RETURN 

END 



INTEGERS FUNCTION GET_INPUT( COMMAND, PROMPT, LENGTH ) 

cm 

C!l! This routins dost all ths raading for ths tsrmlnal intsrfacs. 

CM! It has ths tarns calling format at L1BICET.INPUT sxcspt that optiona 
C!ll paramatsrs may not bs omlttad. 

cm 

INCLUDE 1 (IRMSDEF) • 

INCLUDE ‘SHACOM.FOR* 

EXTERNAL 

4 SMC$_E0F j iha linksr finds 

CHARACTER* (*) 

4 COMMAND, 

4 PROMPT 

INTEGER 

4 LENGTH*2, 

4 SMG$READ.C0MP0SED„LINE*4 

! 

I Rsad a (coapotsd) lins and rsturn ths status to CLI$ stuff. 

i 

GET.INPUT * SMG$READ.COMPOSED_LINE ( 

4 KBDID, 

4 KETTBL, 

4 COMMAND, 

4 PROMPT, 

4 LENGTH ) 

IF ( GET. INPUT .EQ. XLOC( SMC$_EOF ) ) CET.INPUT *= RMSl.EOF 

RETURN 

END 

C - - 

INTEGER*4 FUNCTION PUT.OUTPUT ( STRING ) 

cm 

CM! This routins dost all ths writing for ths terminal intsrfacs. 

CMI It hat ths tarns calling format at LIBlPUI OUTPUT. 

CMt 


131 



0007 

INCLUDE •BHACOM.FOR* 


0173 

CHARACTER* (*) 


0174 

♦ 

STRING 

0176 

INTEGER*! 


0170 

0177, 

4 

! 

LIBIPUT.OGTPDT 

0178 

0179 

1 Raad a lina. 
! 


0180 

0181 

PUT.OUTPUT * LIBlPUT.OUTPUT 

! 

( STRING ) 

0182 

0183 

! Thara ahould ba no arrori bara. 
\ 

Signal if thara ara any. 

0184 

0185 

IF (.HOT. PUI.OOTPUI) CALL LIB»SICNAL( Xval(PtJT.OUTPOT) ) 

1 

0188 

! Rat urn. 


0187 

! 


0188 

RETURN 


0189 

END 




Interactive Service Routines 


The following routines are used ONLY in the interactive version of the code and are 
operating system dependent. They provide functions and service routines for the interactive 
commands. 


C) II 1 1 1 m 1 1 1 1 m 1 1 1 1 1 m It M M III 1 1 It lit HI II III III i n n u i u t M Ml 1 1 1 1 
ci 

Cl Ths system-dependent staff goes below htrs. 

Cl 

C!!l!!l!IIIIIIIMnM)lll|linilllll!!lll|||!MIIMIIIIIMIIIIItMUI!ll 

C! 

C|m 

Cl 

C! FUNCTIONAL DESCRIPTION: 

Cl 

Cl TKsss functions are ths action rontlnss invoked by the VERB which 
Cl follows from the on each routine. 

Cl 

Cl CALLINC SEQUENCE: 

Cl 

Cl ret-etatua.wlc.de = routins ( ) 

Cl 

Cl FORMAL PARAMETERS: 

C! 

Cl NONE 

Cl 

C! IMPLICIT INPUTS: 

Cl 

Cl FUNCTION SPECIFIC 

Cl 

Cl IMPLICIT OUTPUTS: 

Cl 

Cl FUNCTION SPECIFIC 

Cl 

Cl COMPLETION STATUS: 

C! 

Cl FUNCTION SPECIFIC 

Cl 

Cl SS|. NORMAL Success, or 

Cl f acf .status sous other status 

Cl 

Cl SIDE EFFECTS: 

Cl 

Cl VARIBLE 
Cl — 

INTEGER FUNCTION SERVICE.ROUIINES 

IMPLICIT NONE 

PARAMETER SUCCESS = 1 

INCLUDE * (ISSDEF) /NOLIST' I Include system status defintions 

INCLUDE 1 SHACOM . FOR/LIST * I Include SHADOW common block 

1 Clll 

1 CHI COMMON decleratlons. . . 

i cm 

1 COMMON /PIS/ 

1 ♦ PI, 

1 ♦ TPI, 

1 ♦ DPR, 

1 ♦ RPD 

i cm 


I Include system status defintions 
I Include SHADOW common block 
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1046 1 C ♦♦♦ MAXIMUM DIMENSION FOR PLATES 

1048 1 INTEGER NPX 

1047 1 PARAMETER (NPX-76) 

1048 1 MAXIMUM DIMENSION FOR PLATE EDCES 

1040 1 INTEGER NEX 

1060 1 PARAMETER (NEX-12) 

1061 1 MAXIMUM DIMENSION FOR CTLIHDERS 

1062 1 INTECER NCX 

1063 1 PARAMETER (NCX-6) 

1064 1 C««4 MAXIMUM DIMENSION FOR CYLINDER RIMS 

1066 1 INTEGER NNX 

1068 1 PARAMETER (NNX*10) 

1067 1 C»»4 MAXIMUM DIMENSION FOR ROWS (PHI) 

1068 1 INTEGER MAXROW 

1060 1 PARAMETER (MAXR0W*361) 

1060 1 C++* MAXIMUM DIMENSION FOR COLUMNS (THETA) 

1061 1 INTEGER MAXCOL 

1082 1 PARAMETER (MAXCOL-181) 

1083 1 C!ll 

1064 1 COMMON /CEOPLA/ 

1066 1 ♦ XX (3. NEX. NPX), 

1066 1 ♦ V (3. NEX, NPX) , 

1067 14 VP (3, NEX, NPX), 

1068 1 4 VN (3, NPX), 

1060 1 4 MEP (NPX) , 

1070 1.4 MPX 

1071 1 cm 

1072 1 COMMON /GEOMEL/ 

1073 1 4 AO (NNX, NCX), 

1074 1 4 BC (NNX. NCX). 

1076 1 4 ZC (NNX. NCX), 

1076 1 4 ICR (NNX. NCX), 

1077 1 4 XCL (3. NCX), 

1078 1 4 VCL (3, 3, NCX), 

1070 1 4 NEC (NCX) , 

1080 1 4 MCX 

1081 1 dll 

1082 1 COMMON /EDMAG/ VMAG(NEX.NPX) 

1083 1 cm 

1084 1 COMMON /SHADWH/ COLS, ROWS. AHTENH(3) ,CTR0ID(3) , 

1086 1 ♦ MP.ME.NEITME.MC, 

I 086 1 ♦ THET1 , THET2 , PHI , PH2 , RESTH , RESPH , ALPH , 

1° 87 1 ♦ UNIT(3) ,TRS(3) ,VRS(3,3) ,IUNIT,UNITF, UNITS, UN 

1088 1 4 THZP .PHZP , THXP ,PHXP , FILPNM , FILCNM 

1080 1 COMMON /SHADWC/ INPFIL.OUTBUF (MAXCOL, MAXROW) , 

1000 1 4 FILCHC.FILCHP.FILCHR 

1001 1 cm 

1002 1 COMMON /PATCUT/ VPC(3,3) 

1003 1 cm 

1004 1 cm The first set of declaratione is the stuff in /SHADOW/ eomnon bloc 

1006 1 cm 

1006 i INTEGER 

1007 1 4 MP, ME, NEXTME, MC, 

1008 1 Cl Platst/sdgst/cyll variables. 

1000 1 4 FILPNM, FILCNM, 

1100 1 Cl Plato and cyl number* for special filling 

1101 1 4 COLS. 

1102 1 C! Th* size of the array subsection determined 

1103 1 4 ROWS 

1104 1 Cl by internal resolution requirements . 

1106 1 

1106 1 REAL 

1107 1 4 CTROID, 

1108 1 Cl A geometric center of the object in question. 



134 




1100 1 ♦ ANTENN, 

1110 1 Cl Th« antenna location in Rtf Coord. System. 

1111 1 ♦ THET1, 

1111 1 Ct Tha lovar thata and of tha range. 

1113 1 ♦ THET2, 

1114 1 Ct Tha higher thata and of tha ranga. 

1116 t 4 PHI, 

1116 1 Cl Tha lower phi and of tha ranga. 

HIT 1 4 PH2, 

1116 1 Cl Tha highar phi and of tha ranga. 

1110 1 4 RESTH, 

1120 1 Ct Tha daairad thata/phi rasolntion 

1121 1 4 RESPH, 

1122 1 Cl in unite of radlana/plxal . 

1123 1 4 ALPH 

1124 1 Cl Maximum allowed angular axcursion. 

1126 1 

1126 1 CHARACTER 

1127 1 4 0UTBUF*l t 

1128 1 C) Tha output buffar which la displayed. 

1120 1 4 IHPFIL*63, 

1130 1 Cl Tha fllanama of tha input aati 

1131 1 4 FILCHC, 

1132 1 Cl apaelal fill charactar for cyllndara 

1133 1 4 FILCHP, 

1134 1 Ct apaelal fill charactar for avarything alaa 

1136 1 4 FILCHR 

1136 1 Cl apaelal fill charactar for plates 

1137 1 DATA FILCHC, FILCHP, FILCHR/ *C\ ’P', 'I* / 

1138 1 cm 

1130 1 Clll From tha /PIS/ COMMON block... 

1140 1 cm 

1141 1 REAL PI, TPI, DPR, RPD 

1142 1 cm 

1143 1 Clll From tha /CEOPLA/ COMMON block... 

1144 1 cm 

1146 1 INTEGER 

1146 1 4 MEP, 

1147 1 Ct Number of edges par plata 

1148 1 4 MPI 

1140 1 Cl Total number of plates 

1160 1 REAL 

1161 1 4 XX, 

1162 1 Cl Tha array of plate corners 

1163 1 4 V, 

1164 1 Cl Edge unit vectors 

1166 1 4 VP, 

1166 1 Ct Edge unit blnormala 

1167 1 4 VN 

1168 1 Cl Unit normal for each plate 

1160 1 cm 

1160 1 Clll From the /CEOMEL/ COMMON block. . . 

1161 1 Clll 

1162 1 INTEGER 

1163 1 4 NEC, 

1164 1 Cl Number of eectlona per cylinder 

1166 1 4 MCX 

1166 1 Cl Total number of cylinders 

1167 1 REAL 

1168 1 4 AC. 

1160 1 Cl Elliptic parameter along x-axii 

1170 1 4 BC. 

1171 1 C) Elliptic parameter along y-axia 

1172 1 4 ZC, 
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1173 

1 

Cl Cylinder end caps In cyl coord eye 


1174 

1 

.♦ TCR, 



1176 

1 

Ct Angle endcap makes with positive z 

axis 

1176 

1 

♦ XCL, 



1177 

1 

Cl Cyl coord ays origin 



1178 

1 

4 VCL 



1170 

1 

Cl Definition of cyl coord ayt 



1180 

1 

Cl 



1181 

1 

INTEGER 



1182 

1 

4 IUNIT 



1183 

1 

REAL 



1184 

1 

♦ UNITF, 



1186 

1 

♦ UNITS, 



1186 

1 

♦ UNITN , 



1187 

1 

♦ UNIT, 



1188 

1 

♦ TRS, 



1180 

1 

♦ THZP , PHZP , THXP , PHXP , 

1190 

1 

♦ VRS, 



1191 

1 

♦ VPC, 



1192 

1 

♦ VMAG 



1193 

1 

DATA UNIT/1.,.3048,0.0254/ 



1104 

1 

Cf 



1195 

1 

Cll 1* 



1196 

1 

Cl 1 1 Tha following coaanon block la for VMS/SMGl software only. 

1197 

1 

Cl II 



1198 

1 

INTEGER 


KBDID, KEYTBL 

1190 

1 

COMMON /TERCOM/ 


KBDID, KEYTBL 

1200 

1 

Clll- 



1201 


EXTERNAL 



1202 


4 PUT.OUTPUT, GET_ INPUT, 

1 My own ISMG-type I/O routines 

1203 


♦ CLI*. PRESENT, 


1 

1204 


♦ CLI$_NEGATED, 

1 


1206 


^ CLII.LOCPRES, 

1 locally present 

1206 


♦ CLI*_LOCNEG , 


1 locally negated 

1207 


♦ CLII.DEFAULTED, 



1208 


♦ CLI$_ABSENT, 



1209 


♦ CLI$_IWALU 



1210 





1211 


CHARACTER 



1212 


4 Pl*80 , 


1 Command line variable 

1213 


♦ P2*80, 


1 

1214 


♦ UNCHAR*!, 


1 A character 

1216 


+ LIBRARY*64 , 


1 Name of tha help library ia defa 

1216 


♦ LABEL(3)*6 1 1 

Units 

label 

1217 


4 /'meters', 

'fast 

'inches ‘/, 

1218 


4 FILE *50, 


1 Temproary file variable 

1210 


4 PRTFIL*60, 


1 Printable file 

1220 


4 LISFIL*B0 , 


I Input echo listing 

1221 


4 0UTFIL*50 


I "Plottable" output file 

1222 


1 



1223 


DATA IUNIT/ 1/ 



1224 





1225 


L0GICAL*4 



1226 


4 VALID.INPUT , 


t A loop control variable 

1227 


4 CLIIPRESENT, 


! CLI interface to get info about 

1228 


4 CLI*GET.VALUE 


1 CLI interface to get info about 

1229 





1230 


REAL*4 



1231 


4 DOT.DZX ,XQ(3) 



1232 


INTEGER*! 



1233 


4 N.HI.NJ.STS, 


1 sordid variablaa . . . 

1234 


4 KEYPAD, 


1 Keypad condition flag 

1236 


1 



1236 


I General library routines 





LIB$SPAWN, 
LBRlOUTPUT.HELP , 
EMG$SET.KETPAD„MODE , 


I Executes a subproceaa 
1 The librarian halp routine 
I Scraan management package 


I 

! "SET/SHOW- routines 
! 

♦ SET. ANT. 

^ SET .PAT , 

♦ SET.KET , 

♦ SET.UN I. INCHES , 

♦ SHOW. ANT. 

♦ SH0W.PAT , 

♦ SHOW.KET, 

♦ SHOW.tJNI , 

I 

I various command routinaa 
I 

♦ EXIT.COMMAND, 


SET.OUT , 

SET.SCA, 

SET.INP, 

SET.UNI.FEET, 

SH0W.0UT, 

SHOW.SCA, 

SHOW.INP, 


SHADOW.COM 


SET.COO , 
SET.WIN , 
SET.UN I. ME 

SH0W.C00 , 
SHOW.WIN, 


HELP.COMMAND , DCL.COMMAND , 


cmimnmmm mmmmmmtmimitmiimmmmmmt! 
cy 

Cl Thia routina aata tka currant fill charactara balng usad for plataa 
C! or cylindart. 

Cl 

ENTRY SET.FIL 

IF ( CLI|PRESENI( ' SEQUENTIAL' ) ) THEN 

Cl ' 

Cl Raaat thinga to thalr dafault atata. 

Cl 

FILPNM * -1 
FILCNM - -1 
FILCHP * *P' 

FILCHC « 'C* 

FILCHR = 'X' 

C! 

Cl To avoid screwing up the taat in SCAN, use a character that will 
Cl not bo used by the fill process, Ilka char 7. 

Cl Sat a plate up for tagging. 

Cl 

ELSEIF ( CLI|PRESENI( 'PLATE* ) ) THEN 
C! 

Cl Clear any cylinder tagging residua. 

Cl 

FILCNM * 0 
FILCHC « 'C* 

Cl 

Cl Oat the master fill character. 

Cl 

CALL CLIIGET.VALUEC 'P2\ FILCHR ) 

Cl 

Cl Cat the qualifier numeral value. STS is being used for the length of 
Cl and the status of the decode. 

Cl 

IF ( CLIIGET.VALUEC 'PLATE' . P2, STS ) ) THEN 
DECODE (STS, 1.P2, IOSTAT*STS) FILPNM 
ELSE 
STS » -1 
END IF 
Cl 

Cl Gat the fill character for that plate. Use a 'P' if none is given. 

Cl 

IF ( STS .NE. 0 ) THEN 
SET.FIL = XL0C( CLII.IWALU ) 


1301 

ELSE 


1302 

IF ( .NOT. CLI$GET.VALUE(’ PLATE’ .FILCHP) ) THEN 


1303 

FILCHP - *P' 


1304 

ENDIF 


1305 

ENDIF 


1306 

Cl 


1307 

C! Sat a cylinder up lor tagging. 


1308 

Cl 


1309 

ELSEIF ( CLI$PRESENT( 'CYLINDER’ ) ) THEN 

* * 

1310 

Cl 


1311 

Cl Clear any cylinder tagging residue. 


1312 

C! 

« 

1313 

FILPNM *= 0 

; 

1314 

FILCHP « 'P* 


1315 

Cl 


1316 

Cl Cet the master fill character. 


1317 

Cl 


1318 

CALL CLHGET.VALUEC 'P2\ FILCHR ) 


1319 

Cl 


1320 

Cl Get the qualifier numeral value. STS is being used for the length of 


1321 

Cl and the status of the decode. 


1322 

Cl 


1323 

IF ( CLI $ GET .VALUE ( ’CYLINDER*, P2, STS ) ) THEN 


1324 

DECODE (STS, 1 ,P2, IDSTAT*STS) FILCNM 


1326 

ELSE 


1326 

STS = -1 


1327 

ENDIF 


1328 

Cl 


1329 

Cl Get the fill character for that cylinder. Use a ’C* if none it given 


1330 

Cl 


1331 

IF ( STS .HE. 0 ) THEN 


1332 

SET.FIL = XL0C( CLII.IWALU ) 


1333 

ELSE 


1334 

IF ( .HOT. CL I $ GET. VALUE ( ’CYLINDER* , FILCHC ) ) THEN 


1335 

FILCHC ** ’C* 


1336 

ENDIF 


1337 

ENDIF 


1338 

Cl 


1339 

Cl The else here is for a "SET FILL [x] M command. 


1340 

C! 


1341 

ELSE 


1342 

C! 


1343 

C! Get the master fill character. 


1344 

Cl 


1346 

CALL CLI|GET_VALUE( ’P2\ FILCHR ) 


1346 

Cl 


1347 

Cl End of cases. 


1348 

Cl 


1349 

ENDIF 


1360 



1361 

COTO 3 


1352 

1 FORMAT ( I ) 


1363 



1354 

Cl mil! Him ! ! 1 1 1 1 1 1 1 1 ! 1 1 ! 1 1 1 1 ! 1 1 1 ! ! 1 1 ) 1 1 1 1 ! 1 1 1 1 1 1 1 1 1 ! ! 1 ! ! ! 1 1 1 1 1 1 1 1 1 ! 1 


1365 

Cl 


1356 

Cl This routine displays the current fill characters being used for plat 


1357 ' 

Cl or cylinders. 


1358 

Cl 


1369 

ENTRY SHOW.FIL 

+ 

1360 

Cl 


1361 

C! Assume success only when the SHOW command is being executed. 

w 

1362 

Cl 


1363 

SHOW.FIL = SUCCESS 


1364 

C! 
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1365 

1366 

1367 
1366 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 
1370 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1300 

1301 

1302 

1303 

1304 

1305 
1396 

1307 

1308 
1300 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 
1400 

1410 

1411 

1412 

1413 

1414 
1416 

1416 

1417 

1418 
1410 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 


Cl Examine the plats situation. 

Cl 

3 IF ( FILPNM .GT. 0 ) THEN 

WRITE(2,FMT»' (' * Plata * * ,13, ' 1 is tagged with [" .A, "] ' # ) ') 

♦ FILPNM, FILCHP 

¥RITE(2,FMT*' (' * All othar geometry tagged with [* ' ,A, • '] 1 ') ') 

♦ FILCHR 
END IF 

Cl 

Cl Examine tha cylinder situation. 

Cl 

IF ( FILCNM .GT. 0 ) THEN 

WRITE(2,FMT«'(" Cylinder " ,13, " taggad with [" ,A, ' '] ' ') ') 

♦ FILCNM, FILCHC 

WRITE(2,FMT*' (' • All other geometry taggad with [' ' ,A. 1 '] • ') ') 
4 FILCHR 

ENDIF 
Cl 

Cl Check on a no-tag backgroung character situation. 

Cl 

IF ( (FILCNM .EQ. 0) .AND. (FILPNM ,EQ. 0) ) THEN 
WRITE(2,FMT=' (' * No individual platas/cylidars are tagged")') 
¥RITE(2,FMT-'(" All geometry marked by I" .A, ' '] ' ') ') FILCHR 
ENDIF 
Cl 

Cl Report the sequential numbering case. 

Cl 

IF ( ( FILCNM .LT. 0 ) .AND. ( FILPNM .LT. 0 ) ) 

♦ WRITE(2,FMT*' (" All cylinders /plates sequentially tagged")') 
Cl 

RETURN 


ci 1 1 ) 1 1 n ) i ) 1 1 1 1 1 1 1 1 1 1 1 1 1 1 m ii 1 1 1 1 1 1 1 1 1 1 1 ) 1 1 1 m ii 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 m 1 1 1 
ci 

Cl This routine sets the antenna location. 

Cl 

ENTRY SET.ANT 

WRITE (2.FMT** (IX, ' 'Input antenna location in ",46,": ",$)') 

4. LABEL(IUNIT) 

READ (I,*) ANTENN(l), ANTENH(2), ANTENN(3) 

Cl 

Cl Perform appropriate units conversion here. 

Cl 

DO 3424 N=l,3 

3424 Xq(N)«ANTENN(N) 

DO 3425 N=1 ,3 

3425 ANTENN(N)*UNITS* 

♦ ( Xq(l)*VRS(l,N) 4 Xq(2)*VRS(2,N) 4 Xq( 3 )*VRS( 3 ,N) ) 4 TRS(N) 

SET.ANT * SUCCESS 
Cl 

Cl This routine displays the current antenna position. 

Cl 

ENTRY SHQKLAHT 
Cl 

Cl Transform the antenna back 
C! 

DO N*l ,3 

Xq(N) • ( (ANTENN(l)-TRS(l)) * VRS(N.l) 4 
+ (ANTENN(2)-TRS(2)) * VRS(N,2) 4 

♦ ( ANTENN (3) -TRS (3) ) * VRS(N,3) ) / UNITS 
END DO 



1429 

1430 

1431 

1432 

1433 

1434 

1435 
1438 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1446 
1448 

1447 

1448 
1440 

1460 

1461 

1462 

1463 

1464 

1468 

1466 

1467 
1458 

1469 

1460 

1461 

1462 

1463 

1464 
1466 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 
1476 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 
1486 

1486 

1487 

1488 

1489 

1490 

1491 

1492 


VRITE(2,FMT=' (* * Antenna In RCS (meters): '\3F12.6)') ANTENN 
WRITE (2 , FMT* * ( * * Definit system (".A/'): 1 \3F12.E)') 

♦ LABEL(IUNIT), IQ 

EHOW.ANT = SUCCESS 
RETURN 

Clt!llllll!!l!l!in!llll!tl!!!l!ll!lt1!ltll!!llll!ll|||]!lt!intlin!ll! 

Cl 

C! Process a new Input set. Inquire about the full name. 

C! 

ENTRY SET.INP 

CALL CLIAGET.VALUEC , P2‘, FILE ) 

OPEN ( UNITES, FILE-FILE, DEFAULTFILE=\ INP\ STATUS«’OLD*) 

CALL ABSCIN 
SET.INP * SUCCESS 
Cl 

Cl This routine displays the current Input set name. 

C! 

ENTRY SHOW.INP 

INQUIRE C UNIT b 5, NAME-INPFIL ) 

TYPE *, 'The current input set is 1 , INPFIL 
SHOW. I HP * SUCCESS 
RETURN 

cmimimmmmmmmmmiimmmtiimmnmmiimiii 

Cl 

Cl This routine toggles/report keypad mode. 

C! 

ENTRY SET.KEY 

IF ( .NOT. CLlAPRESENT( ’KEYPAD.MODE' ) ) THEN 
KEYPAD = 0 
ELSE 

KEYPAD * 1 
END IF 

SET .KEY “ SMGASET_KEYPAD_MODE( KBDID, KEYPAD ) 

Cl 

Cl Thie routine displays the current keypad mode. 

C! 

ENTRY SHOW.KEY 
IF ( KEYPAD .EQ. 0 ) THEN 
WRITE(2,*) ‘The keyboard is not in keypad mode.* 

ELSE 

WRITE(2,*) 'The keyboard is in keypad mode.' 

END IF 
RETURN 

CIIIIIIIIIIIIMIIIIIIItltlllllinillllltllMlllllllllltlllllllllllllllM 

Cl 

C! Set up a coordinate system. 

Cl 

ENTRY SET.COQ 

cm 

CAM TRS(N)=LINEAR TRANSLATION OF COORDINATES FROM THE FIXED 
CAAA COORDINATES WHICH IS ORICINALLY SET UP BY OPERATOR. 

CAAA 

TYPE 3921, LABEL ( IUN I T) 

3921 FORMAT (’ Please input a translation vector in \A8/ : ') 
accept*, (TRS(N) ,N=1 ,3) 

DO 3920 11=1,3 
3920 TRS CM) =TRS (N) *UNITS 

CAM 

CAAA THZP,PH2P=0RIENTATI0N OF THE VRS(3,N) AXIS RELATIVE TO THE 
CAAA FIXED COORDINATE SYSTEM. 

CAAA 


-I 
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1493 

cm 

THXP,PHXP«0RIENTATI0N OF THE VRS(l.N) AXIS RELATIVE TO THE 


1494 

cm 

FIXED COORDINATE SYSTEM. 


1496 

cm 



1496 

123 

continue 


1497 


type* , 'Pleae* input THZP.PHZP.THXP.PHIP in degree*:’ 

*— 

1498 


accept*, THZP.PHZP.THXP.PHIP 


1499 


VRS(3,1)«SIN(THZP*RPD)*C0S(PHZP*RPD) 


1600 


VRS(3 ,2)*SIN(THZP*RPD) *SIN(PHZP*RPD) 

• 

1601 


VRS (3 . 3)*C0S (THZP*RPD) 


1602 


VRS (1 . 1) "SIN (THXP*RPD) *C0S (PHXP*RPD) 

r 

1603 


VRS(1.2)-SIN(THXP*RPD)*SIN(PHXP*RPD) 

• 

1604 


VRS(1.3)=C0S(THXP*RPD) 


1605 

cm 

INSURE VRS(l.N) IS PERPENDICULAR TO VRS(3.N) 


1606 


DZX«VRS (3 . 1) *VRS ( 1 , 1) ♦ VRS (3 , 3) *VRS (1 , 2) «VRS (3 , 3) * VRS ( 1 , 3) 


1607 


IF(ABS(DZX) .01.0.1) THEN 


1608 


ITPE», 'The coordinate* are NOT orthogonal - Reepecify.’ 


1509 


goto 133 


1610 


ELSE 

W 

1611 


VRS (1 , 1) -VRS Cl , 1) - VRS (3 . 1) *DZX 


1612 


VRS ( 1 , 2) «VRS ( 1 . 2) - VRS (3 . 2) »DZX 


1613 


VRS ( 1 . 3) =VRS ( 1 . 3) - VRS (3 . 3) *DZX 


1614 


D0T=VRS(1,1)*VRS(1,1)*VRS(1.2)*VRS(1,2)*VRS(1,3)*VRS(1.3) 


1616 


DOT-SORT (DOT) 


1616 


VRS(1,1)«VRS(1,1)/D0T 


1617 


VRS(1.2)-VRS(1,2)/D0T 


1518 


VRS (1,3) -VRS (1,3) /DOT 

Lm 

1619 


VRS (3 , 1) “VRS (3,2) * VRS (1,3) -VRS (3 , 3) * VRS (1,3) 


1520 


VRS (2 , 2) «VRS (3 . 3) *VRS (1 . 1) -VRS (3 , 1) *VRS (1 , 3) 


1521 


VRS (2 , 3) “VRS (3 , 1 ) * VRS (1.2) -VRS (3,2) * VRS (1,1) 


1622 


WRITE(6,3931) 

L . 

1623 


END IF 


1624 

Cl 



1626 

Cl Display ths coordinates 


1626 

Cl 



1627 


ENTRY SHQW.COQ 

W 

1628 

C! 



1629 

3931 

FORMAT (2H *,6X 1 , The following rotations are usad for ALL’, 


1630 


2 ’ subsequent inputs : 1 , T79 , 1H*) 


1631 


DO 3932 NI S 1 ,3 

Li 

1532 

3932 

VRITE(6,3933) (NI t NJ,VRS(NI ,NJ) ,NJ=1 .3) 


1633 

3933 

FORMAT (2H *,11,3(21. 'VRS(' , 11. * , Ml/)- 1 ,F9.6) .T79.1H*) 


1634 

C! 



1636 


RETURN 

Lm 

1636 




1637 

cmtitmmiiiiiimmiiimiiniiimmmmmiiimiimi! 


1638 

Cl 



1639 

Cl set up pattarn cut coordinate system 

hm 

1640 

Cl 



1641 


ENTRY SET.PAT 


1542 

cm 



1643 

cm 

THZP , PHZP-ORIENTATION OF THE VPC(3,N) AXIS RELATIVE TO THE 

hm 

1644 

cm 

FIXED COORDINATE SYSTEM. 


1646 

cm 



1646 

cm 

THXP.PHXP- ORIENTATION OF THE VPC(l.N) AXIS RELATIVE TO THE 


1647 

cm 

FIXED COORDINATE SYSTEM. 


1648 

cm 



1649 

1234 

continue 

• p 

1560 


type* , 'Pleaee input THZP.PHZP.THXP.PHIP in degree*:' 


1661 


accept*, THZP , PHZP , THXP . PHXP 


1662 


VPC(3.1)-SIN(THZP*RPD)*C0S(PHZP*RPD) 

tm 

1663 


VPC (3.2) -SIN (THZP*RPD) *SIN (PHZP*RPD) 

• 

1664 


VPC(3,3)»C0S(THZP*RPD) 


1666 


VPC (1 , 1) =SIN (THXP*RPD) *C0S (PHXP*RPD) 


1666 


VPC(1 ,2) -SIN (THXP*RPD) *SIN (PHIP*RPD) 
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1E57 

1668 

1660 

1660 

1661 

1662 

1663 

1664 
1666 
1666 

1667 

1668 
1560 
1670 
1571 

1672 

1673 
1574 
1676 

1676 

1677 

1678 
1670 
1680 
1681 
1682 

1683 

1684 
1686 
1686 
1687 
1566 
1680 
1600 
1601 
1502 

1603 

1604 
1606 
1606 
1607 
1698 

1609 
1600 
1601 

1602 

1603 

1604 
1606 
1606 

1607 

1608 
1600 

1610 
1611 
1612 

1613 

1614 
1616 
1616 

1617 

1618 
1610 
1620 


VPC (1,3) *C0S (THXP*RPD) 

CM! INSURE VPCCl.N) IS PERPENDICULAR TO VPC(3,N) 

DZX-VPC (3 , 1 ) *VPC ( 1 , 1 ) ♦VPC (3 , 2) * VPC ( 1 . 2) *VPC (3 , 3) *VPC ( 1 , 3) 

IF (ABS (DZX) . OT . 0 . 1) THEN 

TYPE* , ' The coordinate are NOT orthogonal - Repacify. ’ 
goto 1234 
ELSE 

VPC(1 , 1)*VPC(1 , 1)-VPC(3 , 1)*DZX 
VPC ( 1 , 2) S VPC (1,2) -VPC (3 , 2) *DZX 
VPC (l »3)*VPC(1 ,3)-VPC(3 ,3)*DZX 

D0T=VPC(1,1)*VPC(1 , l)+VPC(l,2)*VPC(l l 2)+VPC(l i 3)*VPC(l l 3) 
D0T=SQRT(D0T) 

VPC(1 , 1)*VPC(1 , 1)/D0T 
VPC(1 ,2)=VPC(1 ,2)/D0T 
VPC(1 ,3)=VPC(1,3)/D0T 

VPC(2 t \)=V?C{Z,2)*VPC(l,3)-}n>C{3 t 3)*VPC(\,2) 

V?C(2,2)=VPC(3,2)*V?Ca,l)-VPC(Z t l)*V?C{l t 3) 

VPC(2,3)=VPC(3, 1) * VPC (1 ,2) -VPC (3, 2) *VPC(1 , 1) 

WRITE(6,3931) 

END IF 
C! 

Cl re-display the pattarn cat system 
Cl 

ENTRY SHOW.PAT 
DO NI r l,3 

VRITE(6 ,4933) (HI ,NJ ,VPC(HI ,NJ) ,NJ*1 .3) 

' END DO 

4033 FORMAT (2H * , IX ,3(2X . 'VPC( Ml , • , • , II / )«' .F0.6) ,T79. 1H*) 

RETURN 

cnmmmmnmimmmimimimmmmmMmimmmm 

ci 

C! This routine sets/displays a scale factor. 

C! 

ENTRY SET.SCA 

WRITE (2,*) ' Please input a uniform scala factor:' 

READ (1,*) UNITF 
UNITS * UNITN * UNITF 
Cl 

C! This entry displays the uniform scale factor. 

Cl 

ENTRY SHOVf.SCA 

WRITE (2,FMT=' (' 1 The uniform scale factor is ’ \F10.8)*) UNITF 
RETURN • 


cm i mm i m i m nmmm mmmmi nmnmnmmmmnm 

C! 

Cl This routine sets the units for the program. 

Cl 

Cl IUNIT *= Indicator of units used for input data. 

Cl 

C! 1=METERS , 2= FEET , 3=INCHES 

Cl 

ENTRY SETJJKI.METERS 

IUNIT = 1 
COTO 2 

ENTRY SET_UNI_FEET 

IUNIT = 2 
COTO 2 

ENTRY SET_UNI_ INCHES 

IUNIT = 3 

2 UNITN = UNIT( IUNIT ) 

UNITS = UNITN * UNITF 
RETURN 



1021 

1622 

1623 

1624 

1625 

1626 

1627 

1628 
1622 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 
1630 

1640 

1641 

1642 

1643 

1644 
1646 

1646 

1647 

1648 
1640 

1650 

1651 

1652 

1653 

1664 

1665 

1666 
1667 
1658 
1660 
1660 
1661 
1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 
1670 
1680 
1081 
1682 
1683 


ci mi mi mmmmimnmmm inmmmimmmm it mum 

Cl 

C! This entry shows the current unite. 

Cl 

ENTRT 6H0W.UNI 

WRITE (2,FM T-'O* The current unite are ".Ae)') LABEL ( IUHIT ) 
RETURN 

cmmmmmmmmmmmmmmmmimmmiimmmii 

ci 

Cl This routine seta the vindow. 

Cl 

ENTRT SET.WIN 

VALID.INPUT *= .FALSE. 

DO WHILE ( .NOT. VALID.INPUT ) 

I 

TYPE*, 'The current range of theta in degreee le ', THETl*dpr, 

♦ * to ' ,THET2*DPR 

TYPE*,’with a raeolution of 1 ,RESTH*DPR, ' degrees/pixel. ' 

TYPE*, 'The current range of phi in degreee le ', phl*dpr, 

♦ * to * .PH2+DPR 

TYPE*, 'with a raeolution of ', RESPH *DPR, 1 degrees/pixel.' 

I 

TYPE* , 'Please enter a new range for theta (lower .higher) : ' 
ACCEPT*. THET1.THET2 
THET1 THET1 * RPD 
THET2 * THET2 * RPD 
I 

TYPE*, 'Please enter a new THETA raeolution in degrees /pixel: ' 
ACCEPT*. RESTH 
RESTH * RESTH * RPD 

1 

TYPE*, ’Please enter a new range for phi (lower .higher) : ’ 

ACCEPT*. PH1.PH2 
n Hl “ PHI * RPD 
PH2 *= PH2 * RPD 
I 

TYPE* , 'Please enter a new PHI resolution in degrees/pixel:' 
ACCEPT* . RESPH 
RESPH - RESPH * RPD 

1 

ROWS = INT( (PH2 - PHI) / RESPH + 0.6 ) ♦ 1 

COLS « INK (THET2 - THET1) / RESTH ♦ 0.5 ) ♦ 1 

VALID.INPUT * (.NOT. (ROWS .CT.MAXROW) ).0R. 

♦ (.NOT. (COLS. CT.MAXCOL) ) 

IF ( .NOT. VALID.INPUT ) WRITE(2.0 

♦ ' Insufficient dimensions for specified resolution. ' 

END DO 

Cl 

Cl Show the window parameters 
Cl 

ENTRY SHOW.WIN 

TYPE*, 'The current range of theta in degrees le ', THETl*dpr, 

♦ ’ to \THET2*DPR 

TYPE*,' with a resolution of ' ,RESTH*DPR, ' degreee/pixel . • 

TYPE*, 'The current range of phi in degrees is ', phl*dpr, 

♦ ' to \PH2*DPR 

TYPE*, 'with a resolution of ' ,RESPH*DPR, ' degreee/pixel.' 

RETURN 


1684 C 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 !! 1 I f 1 1 1 1 1 1 1 1 1 1 1 f 1 1 ! M 1 1 f I 1 1 1 1 1 1 1 1 1 T I f f 1 1 1 1 1 1 1 1 1 
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1685 

1686 

1687 

1688 
1680 
1600 
1601 
1602 

1603 

1604 

1605 

1606 
1697 
1608 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 
1700 
1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 
1710 

1720 

1721 

1722 

1723 

1724 
1726 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 
1730 

1740 

1741 

1742 

1743 

1744 
1746 

1746 

1747 

1748 


Cl 

Cl This routine determines neaee of output 111". Here are the current 
Cl aeeignmente . 


C! 




C! 

Unit 

Meaning 

Default file n 

Cl 

1 

interactive input 

sysllnput 

Cl 

2 

interactive output 

systoutput 

C! 

5 

input processor input 

FILE. INP 

C! 

6 

input processor (echo) output 

FILE. LIS 

C! 

7 

printable output file 

FILE.PRT 

Cl' 

10 

“plot" data output file 

FILE. PLT 

Cl 

ENTRY 

SET_CUT 



CALL CLI$GET_VALUE( 'PI', FILE ) 


Cl 





C! Only if /NOPLOT la specified, than discard all output written to unit 
C! The user should always get plof table output by default. 

Cl 

IF (..NOT. CLI$PRESENT( 'PLOTTABLE') ) THEN 

0PEN( UNIT*10 , FILE*'_NL:\ STATUS*’OLD\ FORM* * UNFORMATTED ’ ) 
ELSE 

0PEN( UNIT=10, FILE* ' .PLT' , PEF A ULTF I LE=F I LE , STATUS*' NEW' . 

♦ FORM* 'UNFORMATTED' ) 

ENDIF 

Cl 

Cl If /PRINT is not specified, discard all output written to unit 7. 

Cl The user only wants to see the line printer if he asks for It. 

Cl 

OPEN ( UNIT=7 , STATUS*' OLD \ FILE*'_NL:‘ ) 

IF ( CLIIPRESEHTC 'PRINTABLE' ) ) THEN 

OPEN ( UNIT*7 , DEFAULTFILE*FILE, STATUS* ' NEW ' , FILE-’.PRT' ) 

ENDIF 

Cl 

Ct If /NOECHO is specified, the input echo is discarded. 

C! The user should get an echo file by default, just like a .PLT file. 

Cl 

IF ( .NOT. CL I $ PRESEN T( ’ECHOING' ) ) THEN 
OPEN ( UNIT*6 , FILE* '_NL: ’ , STATUS='OLD* ) 

ELSE 

OPEN ( UNIT=6 , FILE*' .LIS’ , DEFAULTFILE*F1LE , STATUS*’NEW' ) 

ENDIF 

C! 

C! Now retreive the full filenames for future reference, 

C! 

INQUIRE ( UNIT * 10. NAME = OUTFIL ) 

INQUIRE ( UNIT = 7, NAME = PRTFIL ) 

INQUIRE ( UNIT - 6. NAME - LISFIL ) 

SET-OUT = SUCCESS 
C! 

Cl This routine displays the currant output files. 

C! 

ENTRY SHOW_OUT 

TYPE *, 'Plotting file is: \ OUTFIL 
TYPE *, 'Printer file is: ’ , PRTFIL 
TYPE *, 'Input echo file: \ LISFIL 
SHOW_OUT = SUCCESS 
RETURN 

Cl 

C! This routine stops the program. 

C! 

ENTRY EXIT_COMMAND 
CALL EXIT 




1749 RETURN 

1760 

1761 ct n m m m m 1 1 m i m 1 1 1 1 m u ! 1 1 m m ii m m m m m ! t m i m u f 

1762 Ct 

1763 Cl This rontini "rvlc" online h'lp request'. 

1764 Cl 

1766 ENTRY HELP.COMMAND 

1766 LIBRARY » 1 1 

1767 PI * ' * 

1768 CALL CLI$CET_VALUE( 'PI*, PI ) 

1769 CALL CL I $ GET. VALUE ( ’HELPLIB* , LIBRARY ) 

1760 HELP.COMMAND « LBR|OUTPUI_HELP( 


1701 


4 PUT.OUTPUT , , 

1 H'lp output rout 

1702 


♦ Pi. 

1 H'lp k«y d'scrlp 

1703 


4 LIBRARY, , 

1 H'lp library nan 

1704 


4 GET_ INPUT ) 

1 Th' prompting in 

1706 


RETURN 


1700 




1707 

ciMmmimiimimimmimiMiiiMiimmmiimmmMmtM 

1708 

Cl 



1709 

Cl 

Thi' routin' call' th' routin'* 

which do th' shadowing. 

1770 

Cl 



1771 


ENTRY SHADOV.COMMAND 


1773 


TYPE*, •Working... 1 

1 Typ' an infomatlonal m« 

1773 


CALL INITGF 

1 Inltlall" n«xt plot 

1774 


CALL DOPLAS 

I Draw th' plat" 

1776 


CALL DOCYLS 

I Draw th' cylinder' 

1770 


CALL WRTOUT 

1 Writ' th' output buffer 

1777 


SHADOVLCOMMAND = SUCCESS 

1 Return a normal 

1778 


RETURN 



1779 

1780 Cl ! 1 1 1 1 III 1 1 1 1 1 1 1 1 M ! Ml Iff M f f H f f ! M M M M f I Ml f f 1 1 1 III II I ! I II Ml I III I 

1781 C! 

1782 Cl Thin routin' execut" a DCL comnand as a anbproc'ii. Add a t"t for 

1783 Cl b'tt'r b'havior with blank PI*, 

1764 Cl 

1786 ENTRY DCL.COMMANO 

1786 CALL CLI$GET_VALUE( *P1\ PI ) 

1787 IF ( PI .EQ. 1 * ) THEN 

1788 DCL.COMMAND * LIBlSPAWNO 

1789 ELSE 

1790 DCL_COMMAND * LIB$SPAWN( PI ) 

1791 . END IF 

1792 RETURN 

1793 Cl 

1794 Cl End of action routin''. 

1796 Cl 

1796 END 
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10.2 Non- VAX/VMS Subroutines 


The following routines are for the non-interactive implementations of the code. They are 
used in conjunction with the routines in this chapter that are common to both versions. 


MAIN PROGRAM (non-interactive) 


This is the main routine to be used with the non-interactive code. 


0001 


PROGRAM SHADOW 


0002 

cm 



0003 

C! ! 1 

THIS COMPUTE CODE WAS WRITTEN AT THE OHIO STATE UNIVERSITY 


0004 

cm 

ELECTROSCIENCE LABORATORY. ANY PROBLEMS OR COMMENTS 


0005 

cm 

CAN BE REFERRED TO: 


0006 

Cl ! ! 



0007 

cm 

RONALD J. MARHEFKA OR LASZLO A. TAKACS 


0008 

cm 

ELECTROSCIENCE LABORATORY 


0000 

ci n 

1320 KINNEAR RD. 


0010 

cm 

COLUMBUS, OHIO 43212 


0011 

cm 

PONE: (614) 422-5752 OR 422-5848 


0012 

cm 



0013 

cm 

THIS COMPUTER CODE CALCULATES SHADOWING OF AN ANTENNA 


0014 

cm 

USINC THE NEC -BSC INPUTS NON- INTERACTIVELY . 


0015 

cm 

IT SHOULD BE USED IN PLACE OF INTERACTIVE MAIN PROGRAM 


0016 

cm 

WHEN THE SHADOW CODE IS USED ON NON VAX COMPUTERS. 

• 0 * 

0017 

cm 



0018 


INCLUDE ' SHACOM.FOR* 


0184 


PARAMETER <NSX=30) 


0185 


COMPLEX WS 


0186 


LOGICAL LRET 


0187 


COMMON /SQRARY/WS(NSX) ,XSS(3,NSX) ,MSA(2,HSX) ,MSX,MSP,MSPP 


0188 

cm 

Initialize fill tags 


0180 

cm 

FILPNM and FILCNM < 0 is sequential tagging 


0190 

C! ! f 

FILPNM or FILCNM > 0 that object ie tagged with 


0191 

C! ! ! 

FILCHP or FILCHC 


0192 

C! ! 1 

FILPNM or FILCNM = 0 everything tagged with FILCHR 


0103 


FILPNM=0 


0194 


F1LCNM-0 


0195 

Cl ! 1 

Initialize fill characters 


0198 


FILCHP=’P ’ 


0197 


FILCHC=’C* 


0198 


FILCHR='X' 

"■* 

0190 

cm 

Initialize return flag 


0200 


LRET= . TRUE. 


0201 

C! t I 

Initialize and read command information. 


0202 


CALL ABSCIN 


0203 

100 

CONTINUE 


0204 

cm 

Choose a source location from stored positions. 


0205 


DO 1200 MS=1 ,MSX 


0206 


DO 1000 N=1 ,3 


0207 

1000 

ANTENN (H) *XSS (U ,MS) 


0208 

Cl ! 1 

Initialize graphics information. 


0200 


CALL INITGF 


0210 

Cf f I 

Calculate shadow of plates. 

** 

0211 


CALL DOPLAS 


0212 

CM 1 

Calculate shadow of cylinders. 


0213 


CALL DOCYLS 

» 

0214 

Ci 1 1 

Write out mape to printer and plotter files. 


0215 


CALL WRTOUT 

mm 

0216 

1200 

CONTINUE 
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0217 

cm 

Raad mort conaand information. 

0218 


CALL JLBSCRE 

0219 

cm 

Rafcarn to axacnto n«xt shadow map 

0220 


IF(UtET) 00 TO 100 

0221 


STOP 

0222 


EHD 
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10.3 Subroutines common to both modes 


The following routines are used by both the interactive and non-interactive implementations 
of the code. They are written in transportable FORTRAN-77. 


SUBROUTINE ABSCIN 


This is the input-set processor routine. It. reads commands from the input file which 
define the input geometry. 


0001 

0002 

0003 

0004 
0006 
0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 
0016 
0016 

0017 

0018 
0010 
0020 
0021 
0022 

0023 

0024 
0026 
0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 


C - 

SUBROUTINE ABSCIN 


Cf ! f 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

CM! 

cm 

C! ! ! 

cm 

cm 

Cl ! ! 

cm 

C! 1 ! 

cm 

cm 

C! I ! 
C! ! ! 

cm 

cm 

cm 

Cl I ! 
C! I ! 

cm 

Cl ! ! 

cm 

Cl I I 
C! ! ! 
C! ! ! 
C! I f 

cm 

cm 

cm 

cm 

C! I ! 
C! ! ! 
C! ! I 

cm 

cm 

cm 

cm 

cm 

cm 

Cl I ! 

cm 


THE NEC - BASIC SCATTERING CODE (NEC-BSC) WAS WRITTEN 
AT THE OHIO STATE UNIVERSITY ELECTROSCIENCE LABORATORY. 

ANY PROBLEMS OR COMMENTS CAN BE REFERRED TO: 

RONALD J. MARHEFKA 
ELECTROSCIENCE LABORATORY 
1320 KINNEAR RD. 

COLUMBUS .OHIO 43212 
PHONE: (614) 422-5752 

THIS IS A PORTION OF THE MAIN PROGRAM OF THE NEC-BSC. 

IT READS IN THE INPUT AND PASSES THE GEOMETRY INFORMATION 
TO THE SHADOW CALCULATION PART OF THIS OBSCURATION CODE. 

IT READS LOCATIONS OF SOURCES A NUMBER OF FINITE 

PLATES AND/OR A SET OF FINITE 

ELLIPTIC CYLINDERS AND CONE FRUSTUM SECTIONS. 

THE PLATES ARE DEFINED 

BY THEIR CORNER LOCATIONS. THEY CAN BE PERFECTLY 
CONDUCTING, MULTI LAYERED DIELECTRIC SLABS, OR COATED 
METAL PLATES. AN INFINITE GROUND PLANE CAN ALSO BE 
ADDED. THE CYLINDERS ARE DEFINED BY THEIR ORIGIN, 

AXES DIRECTIONS, AND BY THE RADIUS ON THEIR MAJOR 

AND MINOR AXES AND THE EHDCAPS AND FRUSTUM RIMS ARE DEFINED BY 

THEIR POSITION ON THE CYLINDER AXIS AND THE ANGLE 

OF THEIR SURFACES WITH THE CYLINDER AXIS IN THE X-Z 

CYLINDER PLANE. THE CYLINDERS MUST BE PERFECTLY 

CONDUCTING. AS DIMENSIONED, IT CAN HANDLE 75 PLATES 

WITH A MAXIMUM OF 12 CORNERS PER PLATE, WITH 6 LAYERS 

OF DIELECTRIC AND 5 CYLINDERS, WITH 10 RIMS 

ALSO 30 TRANSMITTING 

ELEMENTS AND 30 RECEIVING ELEMENTS CAN BE INPUT. 

NOTE THAT THE LIMITS ON THE NUMBER OF PLATES, 

CORNERS, LAYERS, CYLINDERS, SOURCES, AND RECEIVERS 
ARE ONLY DUE TO THE SIZE OF THE ARRAYS. 

THE LINEAR DIMENSIONS ARE INPUT IN METERS UNLESS 
SPECIFIED OTHERWISE. THE ANGULAR DIMENSIONS 
ARE IN DEGREES. 

NOTE THAT COMMENTS ARE INDICATED IN DIFFERENT FORMS: 

CHI IMPLIES EXPLANATION OF PROGRAM SECTION 

C*$$ IMPLIES DESCRIPTION OF INPUT DATA 

C=== IMPLIES COMMAND INPUT SECTION 

C— IMPLIES BEGINNING OF SUBROUTINE 

C+ + + IMPLIES SPECIFICATION OF MAXIMUM DIMENSIONS 

CXXX means lines were not needed for SHADOW program 

CFFF means lines were not implemented for current version 
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NEC-BSC VERSION 2.6-1 ( UPDATED 8/16/86 ) 


0052 

cm 



0053 

cm 

MAJOR VERSION CHANCES ARE DENOTED BT THE FIRST DIGIT 


0064 

cm 

MINOR CHANGES IN CAPABILITY ARE DENOTED BY THE DECIMAL 


0056 

cm 

POINTS AND MINOR CHANCES THAT DO NOT NEED ADDED 


0056 

cm 

DOCUMENTATION ARE SHOWN AFTER THE DASH. 


0057 

cm 
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cm 

NOTE ON VERSION 2.2 

■ # 

0060 

cm 

1) THE PLATE - CYLINDER TERMS ARE NOT PRESENTLY INCLUDED. 


0060 

cm 

2) THE CYLINDER - CYLINDER INTERACTION TERMS WORK ONLY 


0061 

cm 

FOR PARALLEL CYLINDERS WITH THE PATTERN CUT 

n 

0062 

cm 

PERPENDICULAR TO THE CYLINDER AXES. 

* 

0063 

cm 



0064 

cm 

NOTE ON VERSION 2.3 


0065 

cm 

RANGE CATING HAS BEEN ADDED IN THE NEAR ZONE 


0066 

cm 



0087 

cm 

NOTE ON VERSION 2.4 


0068 

cm 

VOLUMETRIC PATTERN CAPABILITY HAS BEEN ADDED 


0060 

cm 



0070 

cm 

NOTE ON VERSION 2.6 


0071 

cm 

PARAMETER STATEMENTS FOR DIMENSIONS ADDED 


0072 

cm 

ARRAY INDICES CHANGED FOR MORE EFFICIENCY 

i. . 

0073 

cm 


M 

0074 

cm 

NOTE OF VERSION 2.6 


0076 

cm 

CONE FRUSTUM INPUT ADDED 


0076 

C! ! f 


j 

0077 

04* 



0078 


SPECIFICATION OF MAXIMUM DIMENSION SIZES 


0070 

C++* 



0080 

C+44 

MAXIMUM DIMENSION FOR OBSERVATION POINTS 

l 

0081 


PARAMETER (NOX-1801) 

w 

0082 

C+4 + 

MAXIMUM DIMENSION FOR PLATE DIELECTRIC LAYERS 


0083 


PARAMETER (NLX«6) 


0084 

C + 44 

MAXIMUM DIMENSION FOR SOURCES 


0085 


PARAMETER (NSX=30) 


0086 

C+ + 4 

MAXIMUM DIMENSION FOR RECEIVERS 

mm 

0087 


PARAMETER (NRX*30) 


0088 

C44 + 



0080 


INCLUDE ’SHACOM. FOR’ 


0256 


COMPLEX CJ.CPI4 ,WS,WR 


0256 


COMPLEX CI11 .CI22.Z11.Z22 


0267 


CHARACTER42 IT(40) . IR(36) ,LABEL(3)*6 


0258 


CHARACTER RUNDAT*9 ,RUNTIM*8 

] 

0260 


DIMENSION IMS(NSX) ,HS(NSX) .HAWS(NSX) , VXSS(3,3,NSX) 

Lm 

0260 


DIMENSION IMR(NRX) ,HR(NRX) .HAWR(NRX) , VXRRO.S.NRX) 


0261 


DIMENSION XRRC3 , NRX) . VXRP (3 , 3 , NRX) 


0262 


DIMENSION XPC(3) ,VRT(3,3) ,TR(3) 


0263 


DIMENSION JMI(4) ,DR(3) ,DT(3) ,DP(3) ,RDR(3) 


0264 


DIMENSION XqR(3),XQ(3) 


0266 


LOGICAL LKK4.6) , LFt}G , LWARN , LSCAT , LPFREC 


0266 


LOGICAL LSOR , LOUT , LSRFC , LSURF t LSHD , LCYL # LPLA 


0267 


LOGICAL L I HD , LDEBUG , LTEST , LSLOPE , LCORNR , LDC 

i 

0268 


LOGICAL LWRITE , LPLT , LGRND , LSMP , LRMP , LPRAD , LRANG , LCNPAT 


0260 


LOGICAL LNEAR , LRCVR , LRECT , LVOLP t LVPLT , LFARN 


0270 


COMMON/SORDAT/ IM , H , HAW , FACTOR 


0271 


COMNWN/SORARY/WSCNSD.XSSO.NSD.MSACD.NSD.MSX^MSP.MSPP 

j 

0272 


COMMON/TEST/LDEBUG , LTEST , LWARN 

L 

0273 


COMMON/SORINF/XS(3) ,VXS(3,3) 


0274 


C0MM0N/IMAlNF/Il(3,NPX,NPXl t VXI(3 ,3 ,«PX> 

** 

0275 


COMMON/RECINF/WR(NRX) , IMRP , HRPP.HAWRP , VXR(3 , 3) , MR 

i 

0276 


COMMON/RECARY/XRP (3 , NRX) ,MJU(2.NRX) ,DRP(3) ,DTP(3) ,DPP(3) 


0277 


COMMON/LIMIT/SML,SMLR l SN!LT»BIG 

■ 

0278 


COMMON/DIR/RD (3) , D (3) , LNEAR, LRCVR 


0270 


COMMON /WAVE/WK , WL 
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0280 

0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288 
0280 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 


COMMON/COMP/CJ , CPI4 
COMMON/FNANC/FNP (HEX , NPX ) 

COMMON/LPLCT/LPLA , LCYL 
COMMON/GRQUND/LGRND , MPXR 

COMMON/OUTPFZ/TPPD , PRAD , RANG , LCNPAT , LPRAD , LRANG 
COMMOH/OUTPHZ/RXS , RXI . TYS , TYI , PZS , PZI , LRECT 
COMMQN/OUTPNV/IVPN, IV.LVOLP 

COMNON/TRAHDT/LSLABCNPX) .NSLAB(NPX) ,DSLAB(NLX t NPX) 

2 , ERSLAB (NLX , NPX) , TESLAB (NLX , NPX) , URSLAB (NLX , NPX) 

3 , TMSLAB (NLX , NPX) 

DATA LABEL/ 'METERS* t ’FEET * , 'INCHES*/ 


DATA 

IT/ * TO 

’ , *PD # , 'PC' , 'SG* , 'LP' , ’PP* , 'GP' , 'XQ 

VRTVCG 

2, *SM' 

, *RD* , 

' CM ’ , * CE ’ , 'BP’.'UF’, 'RMVUNVFRV 

'NX* 

3, ’EN' 

/NP*. 

’NC* , *NG' , *NS' , *PR* , 'US' , *PH* , *RG* , ' 

’NR* 

4, ’SA’ 

, ’FM’ , 

’ RA ' , * GR * , ' VD * , * VN * , ’ VP ’ , ' PF * , ' VF * , 1 

■CC’/ 


CM! MAX. DIMENSION OF SOURCES , RECEIVERS , CYLINDERS , RIMS .PLATES , EDGES 
CIM LAYERS, AND OBSERVATION POINTS. 

MSDX-NSX 

MRDX=NRX 

MCDX*NCX 

NCDX=NNX 

MPDX=NPX 

MEDX=NEX 

MLDX'NLX 

MQDX-NOX 

CMI NOTE: IN SUB. RFPTCL THE VARIABLES I VD , PHOR , PHORP , AND VRO 
CM! MUST BE DIMENSIONED 2*MPDX*1 

Cl 1 1 

CM! SET TIME FLAGS TO ZERO 
IATIM=0 
IBTIM=0 
ICTIM=0 
GO TO 2701 

2700 CONTINUE 
WRITE(6 ,3006) 

WRITE (6, 3005) 

2701 CONTINUE 

C!M INITIALIZE DATA TO DEFAULT VALUES. 

C$$| TEST OUTPUT DEFAULT DATA TO: 

LDEBUG=. FALSE. 

LTEST=. FALSE. 

LOUT-. FALSE. 

LWARH S . TRUE . 

LSLOPE=. TRUE. 

LCORNR= . TRUE . 

LSOR=. FALSE. 

JMX ( 1 ) = 1 
JMX(2) *6 
JMX (3) =5 
JMX(4)=4 
DO 2705 J*1 ,6 
DO 2705 K=1 , 4 
LKJ(K,J)=. FALSE. 

IF ( J . LE. JMX(K)) LKJ(K, J)*.TRUE. 

2705 CONTINUE 

LKJ(3,4)=. FALSE. 

LKJ (3,5)= .FALSE . 

CUt FAR ZONE RANGE DEFAULT DATA RD: 

LRANG=. FALSE. 

RANG=1 . 

C||| RANGE GATE DATA GR: 

RMIN=SMLT 

RMAX=BIG 

C$$$ POWER RADIATED DEFAULT DATA PR: 
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0344 

0346 

0346 

0347 C$$$ 

0348 

0349 

0350 

0351 
0353 
0353 
0364 
0366 

0356 

0357 

0358 
0350 

0360 

0361 
0363 

0363 

0364 
0366 

0366 

0367 

0368 

0369 

0370 

0371 
0373 

0373 

0374 
0376 

0376 

0377 

0378 
0370 

0380 

0381 

0383 C$M 

0383 

0384 CM* 
0386 

0386 

0387 

0388 

0389 

0300 C$$$ 

0301 
0303 

0303 

0304 

0305 
0396 
0307. 

0308 

0300 

0400 

0401 
0403 

0403 

0404 

0405 

0406 

0407 CM$ 


LPRAD-. FALSE. 

PRAD-0. 

IPRAD-1 

PATTERN DEFAULT DATA PD:, PN:, PF:, VD:, VF:, ft VN: 
LVOLP- . TRUE . 

LFARN- . TRUE . 

LNEAR-. FALSE. 

LRECT-. FALSE. 

LCNPAT-.TRUE. 

TPPD-0 . 

TPPV-3. 

TPPS-0. 

TPPI-3. 

THCZ-0 . 

PHCZ-0. 

THCX-90. 

PHCX-0. 

VPC(1,1)«1. 

VPC(1,3)*0. 

VPC(1 ,3)*0. 

VPC(3,1)«0. 

VPC(3,3)*i. 

VPC(3,3)«0. 

VPC(1,3)*0. 

VPC(3,3)*0. 

VPC(3,3)-1 . 

XPC(1)*0. 

XPC(3)«0. 

XPC(3)*0. 

RXS=1. 

RII*0. 

TYS=0. 

TYI-3. 

PZS-0. 

PZI-3 . 

I VPN-3 

NPN-181 

NPV-01 

BACK OR BISTATIC NEAR ZONE SCATTERING DEFAULT DATA BP 
LSCAT-. FALSE. 

FREQUENCT DEFAULT DATA FR: ft FM: 

FRqC«. 3097936 
LFOG-. FALSE. 

FqCS-. 3097035 , 

Fqci=o. 

NFqG=l 

PLATE DEFAULT DATA PC: j 

LPLA-. FALSE. j 

MPX=0 ; ' 

MEP(1)=4 

LSLAB(1)=0 

xxd.i.D-i. 

xxd.i.D-i. 

XX(3,l,l)-0. 

XXd.3,1) — 1. 

XX(3,2,1)-1. 

XX(3,2, l) c 0. 

XX(1,3,D — 1. 

XX(3,3, 1)*-1 . 

XX(3,3,l)-0. 

XX(1 ,4 , 1) -1 . 

XX(3.4,1) — 1. 

XX(3,4,1)«0. 

GROUND PLANE DEFAULT DATA GP: 



0408 


LGRND=. FALSE. 

0400 


MPXR*MPX 

0410 

cm 

SOURCE DEFAULT DATA SC: ,SA: t i 

0411 


LSMP*. FALSE. 

0412 


MSX c O 

0413 


MSAT=0 

0414 


MSA(1, 1) E 0 

0415 


MSA(2, 1)=0 

0416 


XSS(1,1)*0. 

0417 


XSS(2, 1)=0. 

0418 


XSS(3 , 1)*0 . 

0410 


IMS (l) S “1 

0420 


HS(1)«0.6 

0421 


HAWS(1)«0. 

0422 


THSZ*0 . 

0423 


PHSZ=0. 

0424 


THSX-00. . 

0425 


PHSX e 0 . 

0426 


VXSS(1,1,1)«1. 

0427 


VXSS(1 ,2 , 1)*0 . 

0428 


VXSSd.3,l)*0. 

0420 


VXSS (2 t l,l)*0. 

0430 


VXSS(2,2, 1)*1 . 

0431 


VlSS(2 t 3,l)~0. 

0432 


VXSS(3,1,1)«0. 

0433 


VXSS(3,2, l) s 0. 

0434 


VISS(3,3, 1)*1 « 

0435 


VS(1)=(1 . ,0. ) 

0436 

cm 

RECEIVER DEFAULT DATA RC: ,RA : 

0437 


LRCVR=. FALSE. 

0438 


LRMP-. FALSE. 

0430 


MRX=0 

0440 


MRAT-0 

0441 


MRA(1.1)*0 

0442 


MRA(2, 1)=0 

0443 


XRR(1 , 1)=0. 

0444 


XRR(2,1)=0. 

0445 


XRR(3, l)-0. 

0446 


IMRU)*-1 

0447 


HR(1) =0 . 6 

044.8 


HAWR(1)*0. 

0440 


THRZ*0. 

0450 


PHRZ*0. 

0451 


THRX=00 . 

0462 


PHRX=0. 

0463 


VXRR(1 , 1,1)*1. 

0464 


VXRR(1 ,2, l) c 0. 

0465 


VlKkd, 3, l)*0. 

0466 


VXRR(2, 1 , 1)^0. 

0457 


VXRR(2,2 ( 1)*1. 

0458 


VXRR(2,3, 1)“0. 

0460 


VXRR(3, 1 , 1)«0. 

0460 


VXRR(3 ,2, 1)=0. 

0461 


VXRR(3,3,1)*1. 

0462 


WR(1)= (0 . , 0 , ) 

0463 

cm 

LINE PRINTER DEFAULT DATA LP: 

0464 


L WRITE*. FALSE. 

0466 

cm 

PLOTTER DEFAULT DATA PP: ft VP: 

0466 


LVPLT=. FALSE. 

0467 


LPLT* . FALSE. 

0468 


LPPREC=. FALSE. 

0460 


PPXL=0 . 

0470 


PPTL-3. 

0471 


PPXB=0 . 
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0472 


PPXE a 360. 

0473 


PPXS-30. 

0474 


PPYB*-40. 

0475 


PPYE=0 . 

0470 


PPYS=10. 

0477 

cm 

ROTATE TRANSLATE DEFAULT DATA RT: 

0478 


THZP*0. 

0479 


PHZP=0 . 

0480 


THXP*90. 

0481 


PHXP*0. 

0482 


TR(1)«0. 

0483 


TR(2) *0 . 

0484 


TR(3)=0. 

0485 


VRT(1,1)-1. 

0488 


VRT(1 ,2)*0. 

0487 


VRTCl ,3)“0 . 

0488 


VRT(2, 1)*0. 

0489 


VRT(2,2)«1. 

0490 


VRT(2,3)*0. 

0491 


VRT(3, 1)*0, 

0492 


VRT(3,2)*0. 

0493 


VRT(3 ,3)*1 . 

0494 

c$M 

CYLINDER DEFAULT DATA CO: k CC: 

0495 


MDC*0 

0496 


LCYL«. FALSE. 

0497 


NCX=0 

0498 


NECCD-2 

0499 


AC(1,1)“1. 

0600 


BC(1 , 1)*1 . 

0601 


AC(2, 1) K 1 . 

0502 


BC(2, 1)=1 . 

0503 


ZC(2,1)— 3. 

0604 


TCR(2,l)«l. 570798 

0505 


ZC(1 , 1) B 3 . 

0506 


TCR(1,1)«1. 670796 

0607 


VCL(1 , 1 , 1)*1 • 

0608 


VCL(1 ,2, 1)*0. 

0609 


VCL(1 ,3, 1) M 0 . 

0610 


VCL(2, 1 , 1)*0. 

0511 


VCL(2,2, 1)*1 . 

0612 


VCL(2,3, 1)*0. 

0513 


VCL(3,1,1)«0. 

0614 


VCL(3,2, 1)*0. 

0616 


VCL(3 , 3 , 1) “1 . 

0516 


xclu.D-o. 

0617 


XCL(2, 1)*0. 

0518 


XCL(3,1) C 0. 

0519 

cut 

UNITS DEFAULT DATA UN: ,UF: k US: 

0620 


IUNIT=1 

0521 


UNITN=UNIT(IUNIT) 

0522 


UHITF-1. 

0523 


UHITS=UNITN*UNITF 

0524 


IUNST s 0 

0525 


IUNSP=IUNST 

0526 


GO TO 2999 

0627 


ENTRY ABSCRE 

0628 

3000 

CONTINUE 

0529 


WRITE(6 , 3006) 

0530 

3006 

FORMAT (IX , 1H* ,76X , 1H*) 

0631 


WRITE(6 ,3006) 

0532 


VRITE(6 , 3005) 

0633 

3005 

F0RMAT(1X ,26(3H***)) 

0534 

cm 

READ IN VARIOUS COMMAND OPTIONS. 

0635 

2999 

READ(5, 3001 .END-3004) (IR(I) ,1-1, 
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0536 3001 FORMAT (36A2) 

0537 WRITE (6 ,3002) 

0538 3002 FORMAT (1H ,//////, 1X,26(3H**0) 

0530 VRITE(6,3008) 

0640 WRITE(6 , 3003) (IR(I) , 1=1 ,36) 

0541 3003 FORMAT (IX, 1H* ,2X ,36A2,2X , 1H*) 

0642 CM! 

0643 cm CHECK AGAINST STORED OPTIONS 

0544 cm 

0646 C$$$ CM: COMMENT CARD 

0646 IF(IR(l).Eq.IT(13)) GO TO 3090 

0547 CM CE: LAST COMMENT CARD 

0548 IF(IR(1).EQ. 11(14)) GO TO 3000 

0649 WRITE(6 , 3006) 

0550 VRITE(6,3006) 

0551 C$M TO: TEST DATA GENERATION OPTION. 

0562 IF(IR(l).Eq.IT(l)) CO TO 3100 

0563 C$M PD: FAR ZONE PATTERN INTEGER ANGLES 

0654 IF(IR(l).Eq.IT(2)) GO TO 3200 

0556 CM! RD: FAR ZONE RANGE INPUT 

0556 IF(IRCl) .EQ.ITC12)) GO TO 3250 

0667 CM PC: PLATE GEOMETRY INPUT 
0568 IF(IR(1) .Eq . I T (3) ) GO TO 3300 

0669 CM SG: SOURCE GEOMETRY INPUT 

0660 IF(IR(l).Eq.IT(4)) GO TO 3400. 

0661 CM SM: SOURCE NEC OR AMP INPUT 

0562 IF ( IR ( 1 ) .Eq.IT(ll)) GO TO 3460 

0563 CHI LP: LINE PRINTER LISTING OF RESULTS 

0564 IF(IR(1) .Eq.IT(B)) GO TO 3500 

0566 C$$$ PP: PEN PLOT OF RESULTS 

0666 IF(IR(1) .EQ . IT(6) ) GO TO 3600 

0667 CM GP: INCLUDE INFINITE GROUND PLANE 

0668 IFCIR(I) .Eq . IT (7) ) GO TO 3700 

0669 CM$ Xq : EXECUTE PROGRAM 

0570 IF(IRCl) .Eq.IT(8)) GO TO 3800 

0571 C$$$ RT: TRANSLATE AND/OR ROTATE COORDINATES 

0672 IF(IR(1) Eq.IT(g)) GO TO 3900 

0673 CM CG: CYLINDER GEOMETRY INPUT 

0574 IF(IR(1) .EQ.IT(IO)) CO TO 4000 

0576 CM CC: CONE GEOMETRY INPUT 

0576 IF(IR(1) .EQ.ITC40)) GO TO 4000 

0677 Cl$$ BP: BACK OR BISTATIC NEAR ZONE SCATTERING 

0678 IF(IR(1) .EQ.IT(IB)) GO TO 6240 

0579 C$|$ UF: SCALE FACTOR FOR INPUT 

0580 IF(IR(1) .Eq . IT (16) ) GO TO 4120 

0681 C$$$ UN: UNITS OF INPUT 

0582 IF(IR(1) .Eq , IT (18) ) GO TO 4100 

0583 CM FR: FREqUENCY 

0684 IF(IR(i) .Eq.IT(19)) GO TO 4200 

0685 Cm NX: NEXT PROBLEM 

0586 IF(IR(1) .Eq . IT (20)) GO TO 2700 

0587 CM EH: END PROGRAM 

0588 IF(IR(1) .Eq . I T (2 1 ) ) GO TO 997 

0689 C$$$ NP: NEXT SET OF PLATES 

0590 IF(IR(l) .Eq. IT ( 22 )) GO TO 3360 

0591 C$$$ NC: NEXT SET OF CYLINDERS 

0592 IF(IR(1) .Eq.IT(23)) GO TO 4050 

0693 CM NG: NO GROUND PLANE 

0594 IF(IR(1).EQ.IT(24)) GO TO 3750 

0696 CM NS: NEXT SET OF SOURCES 

0596 IF ( IR ( 1) .Eq. 11(25)) GO TO 3490 

0697 C$$$ PR: POWER RADIATED INPUT 

0598 IF(IR(1) .Eq.IT(26)) GO TO 3440 

0699 C$11 US: UNITS OF HS AND HAWS IN SG: , SA: , RG: ,A RA: 
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0600 

0601 

0602 

0603 

0604 
0606 
0606 

0607 

0608 

0609 

0610 
0611 
0612 

0613 

0614 
0616 
0616 
0017 
0616 

0619 

0620 
0621 
0622 

0623 

0624 
0626 
0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634 
0636 
0636 
0037 
0638 
0630 

0640 

0641 

0642 

0643 

0644 
0046 

0646 

0647 

0648 

0649 
0660 
0661 
0662 

0663 

0664 
0666 
0666 

0667 

0668 
0669 
0660 
0661 
0662 
0663 


IF(IR(1) .EQ. 11(27)) GO TO 4110 
CM! PN: NEAR ZONE PATTERN DESIRED 

IF(IR(1) .EQ . IT (28)) GO TO 3260 
Cttt RG: RECEIVER GEOMETRY INPUT 

IF(IR(1) .EQ.ITC29)) GO TO 4400 
C$M RM: RECEIVER NEC OR AMP INPUT 

IF C XR CD .EQ.IT(17)) GO TO 4460 
CHI NR: NEAT SET OF RECEIVERS 

IF(IR(1) .EQ. IT (30)) GO TO 3496 
CM$ SA: SOURCE ARRAY GEOMETRY INPUT 
IF(IRCl).EQ.IT(31)) GO TO 3810 
CM$ FM: MULTIPLE FREQUENCY INPUT 

IF(IR(1) .EQ . IT (32)) GO TO 4260 
CMI RA: RECEIVER ARRAY GEOMETRY INPUT 
IF (IR( 1) .EQ.IT(33)) CO TO 4810 
CAM GR: RANGE GATE INPUT 

IF(IR(1) .EQ. IT (34)) GO TO 6260 
CAM VD: FAR ZONE VOLUMETRIC PATTERN INTEGER ANGLES 
IF(IR(1) .EQ . IT (36)) GO TO 3210 
CM! VN: NEAR ZONE VOLUMETRIC PATTERN 
IF (IR( 1) .EQ . IT (36)) CO TO 3270 
CMI VP: VOLUMETRIC DUMP OF RESULTS FOR PLOTTING 
IF(IR(1) .EQ. IT (37)) CO TO 3660 
CIO PF: FAR ZONE NON INTEGER ANGLES 
IF(IR(i).EQ.IT(38)) GO TO 3220 
C$$$ VF: FAR ZONE VOLUMETRIC PATTERN NON INTEGER ANGLES 
IF(IR(1) .EQ . IT (39)) GO TO 3230 

cm 

WRITE(0,3O21) 

3021 FORMAT ( ’ *** PROGRAM ABORTS 1 1 1 COMMAND INPUT IS NOT PART*, 
2* OF STORED COMMAND LIST ***’) 

3004 STOP 

Obsbbss 

3090 CONTINUE 

C— «= CM: CE: COMMANDS — 

cm 

CMI IR(I)*CM: OR CE: FOLLOWED BY AN ALPHANUMERIC STRING OF 
CMI CHARACTERS. THE CM: COMMAND IMPLIES THAT THERE WILL BE 
CMI ANOTHER COMMENT CARD FOLLOWING IT. THE LAST COMMENT CARD 
CIM MUST HAVE THE CE: COMMAND ON IT. IF THERE IB ONLY ONE 
CAM COMMENT CARD THE CE: COMMAND SHOULD BE USED. 

cm 

READ(6,3001) ClR(I) , 1*1 .36) 

WRIT£(6 , 3003) (IR(I) , 1-1 ,30) 

IF ( IR ( 1 ) . EQ . IT ( 14 ) ) CO TO 3000 
IF(IR(1).EQ.IT(13)) CO TO 3090 
WRITE(6.3091) 

3091 FORMAT ( * *** PROGRAM ABORTS! ! 1 CE: COMMAND MUST BE* , 

2' USED TO END COMMENTS. ♦**') 

STOP 

Osirsts 

3100 CONTINUE 

C=== TO : COMMAND ====== 

cm 

C|$$ LDEBUG*DEBUG DATA OUTPUT ON LINE PRIHTERCTRUE OR FALSE) 

cm 

cm LTEST=TEST DATA TO INSURE PROGRAM OPERATION (TRUE OR FALSE) 

cm 

Cttt LOUT=OUTPUT MAIN PROGRAM DATA ON LINE PRINTER(TRUE OR FALSE) 

cm 

C$$$ LWARN “WARN INC DATA OUTPUT ON LINE PRIHTER(TRUE OR FALSE) 

cm 

READ(6, *) LDEBUG , LTEST , LOUT , LWARN 
WRITE(6 , 3101) LDEBUG , LTEST , LOUT , LWARN 



0604 

0666 

0666 

0667 

0668 

0669 

0670 

0671 

0672 

0673 

0674 
0676 

0676 

0677 

0678 

0679 

0680 
0681 
0682 

0683 

0684 
0686 
0686 

0687 

0688 

0689 

0690 
0601 

0692 

0693 

0694 

0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 

0703 

0704 
0706 

0706 

0707 

0708 

0709 

0710 

0711 

0712 

0713 

0714 
0716 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 
0726 

0726 

0727 


3101 FORMAT (2H * ,6X t 'LDEBUG- ’ . L3 , 6X , * LTEST- ’ .L3.6X, •LOUT-' ,L3 
2,6X, •LWARN-* ,L3,T79,1H*) 

vnuTE(6,sooe) 

cm 

C$M LSLOPE-SLOPE DIFFRACTED FIELD DESIRED (T OR F) 

cm 

CM* LCORNR-CORNER DIFFRACTED FIELD DESIRED (T OR F) 

cm 

Cm LSQR-ANTEHNA SHADOW ALONE (TRUE OR FALSE) 

cm 

READ (6,*) LSLOPE , LCORNR , LSOR 
VRITE(6,3102) LSLOPE, LC0R1JR, LSOR 

3102 FORMAT (2H * ,6X, ’LSLOPE- ’ , L3 , 6X , ’ LCORNR- ' ,L3,6X, 'LSOR* \L3, 
2T79.1H*) 

VRITE(6,3006) 

IF (LSOR) WRITE(6,3402) 

3402 FORMAT (2H *,6X, ’SOURCE SHADOW ALONE IS COMPUTED! I ! \ T79, 1H*) 

IF (LSOR) WR1TE(6,3006) 

cm 

CtU K=1 , J=OPTION TO RUN DIRECT RAY TERM: 

CUt 1=DIRECT FIELD 

C*M NOTE: NORMALLY LXJ(1,1)=.TRUE. THIS COMPUTES THE INCIDENT FIELD, 
cm 

CUt K-2 , J-OPTION TO RUN VARIOUS RAT TERMS FOR PLATES: 

C$U 1-SINGLE REFLECTED FIELD 

C*M 2-DOUBLE REFLECTED FIELD 

Cm 3 -SINGLE DIFFRACTED FIELD 

C*** 4-REFLECTED/DIFFRACTED FIELD 

C$M 6=D I FFR AC TED /REFLECTED FIELD 

C*M 6-DOUBLE DIFFRACTION INDENTIFICATION 

C$$$ NOTE: NORMALLY LKJ(2,1 TO 6) -.TRUE. THIS COMPUTES ALL FIELD 
C*M VALUES INCLUDING IDENTIFING DOUBLE DIFFRACTION PROBLEM AREAS 
CU% FOR A CONVEX OR CONCAVE PLATE STRUCTURE. 

C*M 

cm K=3 , J=OPTION TO RUN VARIOUS RAT TERMS FOR CYLINDER: 

C$U 1 -REFLECTED, TRANSITION, AND CREEPIHC WAVE FIELDS 

cm 2-SINGLE REFLECTED FIELDS FROM ENDCAPS 

C$$$ 3-SINCLE UIFFACTED FIELDS FROM ENDCAP RIMS 

C*M 4 -REFLECTED -SCATTERED FIELDS FROM TWO PARALLEL CYLINDERS 

CUt 6-D I FFRACTED- SCATTERED FIELDS FROM TWO PARALLEL CYLINDERS 

C*M NOTE: NORMALLY LKJ(3,1 TO 6)-. TRUE. THIS COMPUTES ALL FIELD 

CUt VALUES FOR A FINITE ELLIPTIC CYLINDER. 

cm 

C$M K=4 , J-OPTION TO RUN VARIOUS RAY TERMS FOR 
Cttt PLATE-CYLINDER INTERACTIONS: 

C$$$ 1-FIELDS REFLECTED FROM THE PLATES THEN REFLECTED OR 
C*M DIFFRACTED FROM THE CYLINDER 

Cm 2-FIELDS REFLECTED OR DIFFRACTED FROM THE CTLINDER THEN 
C*M REFLECTED FROM THE PLATES 

C$$$ 3-FIELDS REFLECTED FROM THE CYLINDER THEN DIFFRACTED 
C$$$ FROM THE PLATES 

C*M 4-FIELDS DIFFRACTED FROM THE PLATES THEN REFLECTED 
CM* FROM THE CYLINDER 

CM* NOTE: NORMALLY LKJ(4,1 TO 4)*. TRUE. THIS COMPUTES ALL FIELD 
CM* VALUES THAT INTERACT BETWEEN THE PLATES AND CYLINDERS. 

c*M 

DO 3104 K=1 ,4 
JK-JMX(K) 

READ(5 , *) (LKJ(K, J) , J=1 , JK) 

3104 WRITE(6 , 3103) K, (LKJ(K, J) , J=l, JK) 

3103 F0RMATC2H * , T79 , 1H* , T8 , ’LKJ(‘ ,11, ' , J)= ’.6L2) 

GO TO 3000 

0====== 

4100 CONTINUE 
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COMMAND 


0728 

0729 

0730 

0731 

0732 

0733 

0734 

0735 
0738 

0737 

0738 

0739 

0740 

0741 

0742 

0743 

0744 

0745 

0746 

0747 

0748 

0749 
0760 


C— UN: 

cm 

Ct$$ IUNIT-INDICATOR OF UNITS USED FOR INPUT DATA. 

C$M 1-METERS 

C$$$ 2-FEET 

C$$$ 3-INCHES 

cm 

READ (6,*) I UN IT 
UN I TN =UH I T ( IUN IT) 

UNITS-UN ITN *UHITF 
WRITE(6,4101) LABEL(IUNIT) 

4101 FORMAT (2H ♦.BX.'ALL THE LINEAR DIMENSIONS BELOW ARE’ 
2/ ASSUMED TO BE IN ' .AG.TTO.IH*) 

00 TO 3000 
C— — 

4120 CONTINUE 

C-*= UF: COMMAND -===== 

cm 

CM$ UNITF - SCALE FACTOR FOR GEOMETRY 

cm 

READ (5,*) UNITF 
UN I TS-UN I TN *UN I TF 
VRITE(6 , 4121) UNITF 


0761 

0762 

0763 

0764 

0765 
0756 

0767 

0768 

0769 

0760 

0761 

0762 

0763 

0764 

0765 

0766 

0767 

0768 

0769 

0770 

0771 

0772 

0773 

0774 
0776 

0776 

0777 

0778 

0779 

0780 

0781 

0782 

0783 

0784 
0786 

0786 

0787 

0788 

0789 

0790 

0791 


4121 FORMAT (2H * ,6X , 'ALL THE LINEAR DIMENSIONS BELOW ARE SCALED BT* 
2.' A FACTOR OF ’ ,F12.6.T79,1H*) 

GO TO 3000 

Qbssics 

4110 CONTINUE 

C— US: COMMAND 

cm 

C$M IUNST- INDICATOR OF UNITS USED FOR HS AND HAWS IN THE 
C$M SG: COMMAND. 

CIM O-WAVELENGTHS 

CMI 1-METERS 

CMI 2-FEET 

CtM 3-INCHES 

cm 

C$$$ NOTE: IF ONE SOURCE IS SPECIFIED IN WAVELENGTHS, THEY ALL 
CM) MUST BE IN WAVELENGTHS. 

READ(6,*) IUHST 

IF(MSX.EQ.O) GO TO 4112 

IF ( IUNST . EQ . 0 . AND . IUNSP . EQ . 0) GO TO 4112 

IF ( IUNST . NE . 0 . AND . IUNSP . NE . 0) GO TO 4112 

WRITE(6,4111) 

4111 FORMAT (’ *** PROCRAM ABORTS IN SOURCE UNITS. ALL UNITS NOT* 
2,' SPECIFIED IN WAVELENGTHS!!! ***') 

STOP 

4112 CONTINUE 
IF(IUNST.Eq.O) GO TO 4114 
WRITE(6 ,4113) LABEL(IUNST) 

4113 FORMAT (2H *,6X/THE SOURCE LENGTH HS AND WIDTH HAWS ARE’ 

2/ ASSUMED TO BE IN * t A6,T79,lH*) 

CO TO 4116 

4114 WRITE(6 ,4116) 

4116 FORMAT (2H *,6X,'THE SOURCE LENGTH HS AND WIDTH HAWS ARE’ 

2,' ASSUMED TO BE IN WAVELENCTHS ' , T79 , 1H*) 

4116 IUNSP-IUNST 
GO TO 3000 
C— — - 

4200 CONTINUE 
C— FR: COMMAND 

cm 

C)$) FRQG-FREqUENCY IN GIGAHERTZ. 

cm 



0702 


LFQG* .FALSE. 

0703 


NFQQ*1 

0704 


READ (6,*) FRqO 

0706 


WL* . 2007025/FRQG 

0706 


WRIIE(6,4201) FRqG 

0797 

4201 

FORMAT (2H * ,BX, 'FREqUENCY* \F7.3,' GIGAHERTZ' .179, 1H») 

0708 


WRIYE(6,3006) 

0700 


WRITE (6 , 4202) VL 

0800 

4202 

FORMAT (2H * , SX , ' WAVELENGTH® ' .F10.6, ’ METERS' .T79.1H*) 

0801 


CO TO 3000 

0802 

(J=SEKC= 

0803 

4260 

CONTINUE 

0804 


FM: COMMAND ====== 

0805 

cm 


0806 

cm 

NFQG-NUMBER, OF FREQUENCIES DESIRED 

0807 

cm 


0808 

cm 

FQCS=STARTING FREQUENCY IN GIGAHERTZ 

0800 

cm 


0810 

c*n 

FQCI=INCREMENTAL FREQUENCY CHANGE IN GIGAHERTZ 

0811 

cm 


0812 

cm 

NOTE: THE SOURCE LENGTH AND WIDTH MUSI NOT BE SPECIFIED 

0813 

cm 

IN WAVELENGTHS. ALSO OHLT ONE PATTERN LOCATION 

0814 

on 

CAN BE SPECIFIED. 

0816 

on 


0816 


LFQG*. TRUE. 

0817 


READ(6, *) NFQC.FQCS.FqGI 

0818 


WRITE(6 , 4251) NFQG 

0810 

4251 

FORMAT (2H *,SX,I3,' FREqUENCIES ARE SPECIFIED' , T79, 1H*) 

0820 


IF(NFqG.GT.MODX) WRITE(6.3260) IlFqG 

0821 


IF(NFqG.GT.MODX) STOP 

0822 


WRITE(0 , 3008) 

0823 


WRITE(6, 4252) FQGS.FQGI 

0824 

4262 

F0RMAT(2H * ,5X, 'STARTING FREQ.= \F10.5,’ IN STEPS OF \F10.I 

0826 


2,* GHZ. ’ .T79.1HO 

0826 

Cl 1 I 

CALCULATE MID-FREqUENCY 

0827 


FRQC=FQGS+0. 6*FQGI* (NFQG-1) 

0828 


WL= . 2997925/FRqG 

0820 


CO TO 3000 

0830 

c==== 

£ = 

0831 

3230 

CONTINUE 

0832 

C=== 

VF: COMMAND == 

0833 

cm 


0834 

cm 

FAR ZONE VOLUMETRIC PATTERN NON INTEGER ANGLES 

0835 

cm 


0836 


LVOLP= . TRUE . 

0837 


LFARN= . TRUE. 

0838 


CO TO 3211 

0830 



0840 

3210 

CONTINUE 

0841 

C*== 

VD: COMMAND -«==-« 

0842 

cm 


0843 

cm 

FAR ZONE VOLUMETRIC PATTERN INTEGER ANGLES 

0844 

c$*$ 


0846 


LVOLP= . TRUE. 

0846 


LFARN= . FALSE. 

0847 


GO TO 3211 

0848 

c==== 

: = = 

0840 

3220 

CONTINUE 

0860 

C=== 

PF: COMMAND ====== 

0861 

cm 


0862 

C$$$ 

FAR ZONE PATTERN NON INTEGER ANGLES 

0853 

cm 


0864 


LVOLP=. FALSE. 

0855 


LFARN=. TRUE. 



CO TO 3211 


0856 


0867 

*! 

0858 

3200 

0860 

c— 

0860 

cm 

0861 

cm 

0862 

cm 

0863 

cm 

0864 

cm 

0865 

cm 

0866 

cm 

0867 

cm 

0868 

cm 

0860 


0870 

3211 

0871 


0872 


0873 


0874 


0876 


0876 


0877 


0878 

CU! 

0870 


0880 


0881 

3201 

0882 


0883 


0884 


088S 


0886 


0887 


0888 


0880 


0800 


0801 


0802 


0803 


0804 


0806 


0606 

3202 

0807 


0808 


0800 

3204 

0000 

3205 

0001 


0002 

3203 

0003 

cm 

0004 

cm 

0005 

cm 

0006 

cm 

0007 

cm 

0908 

cm 

0900 

cm 

0010 

cm 

0011 

cm 

0012 


0013 


0014 


0915 


0016 


0917 


0018 

3206 

0010 



CONTINUE 

PD: COMMAND — — 

FAR ZONE PATTERN INTEGER ANGLES 

THCZ,PHCZ s ORIENTATION OF THE Z AXIS RELATIVE TO THE 
FIXED COORDINATE SYSTEM. 

THCX .PHCX-ORIENTATION OF THE X AXIS RELATIVE TO THE 
FIXED COORDINATE SYSTEM 

LVOLP«. FALSE. 

LNEAR-. FALSE. 

READ(5,*) THCZ , PHCZ , THCX , PHCX 

VPC (3 , 1 ) -S IN (THCZ*RPD) *COS (PHCZ*RPD) 

VPC(3,2)“SIN(THCZ+RPD)*SIN(PHCZ*RPD) 

VPC(3,3)«C0S(THCZ*RPD) 

VPC(1 , D-SIN (THCX*RPD) *CGS (PHCX*RPD) 

VPC(1 ,2)«SIN(THCX*RPD) *SIN(PHCX*RPD) 

VPC(1,3)=C0S(THCX*RPD) 

INSURE VPC(l.N) IS PERPENDICULAR TO VPI(3,N) 

DZX-VPC (3,1) * VPC (1,1) ♦ VPC (3 , 2) * VPC (1,2) *VPC (3 , 3) *VPC (1,3) 
IF (ABS (DZX) . GT . 0 . 1) VRITE(6,3201) 

FORMAT ( ’ *** PROGRAM ABORTS IN PATTERN CUT SECTION.' 

2/ THE COORDINATES ARE NOT ORTHOGONAL! 1 1 *♦*') 

IF(ABS(DZX) .CT.O.l) STOP 
VPC(1 , 1)*VPC(1 , 1) -VPC(3 , 1) *DZX 
VPC (1 . 2) -VPC (1 . 2) -VPC (3 , 2) *DZX 
VPC (1 , 3) *VPC (1 , 3) -VPC (3 , 3) *DZX 

DOT=VPCd,l)*VPCd.l) + VPCd t 2)*VPCd,2)+VPCd,3)*VPCd,3) 
DOT-SQRT (DOT) 

VPCd.l)-VPCd,l)/DOT 
VPC (1,2) -VPC (1,2) /DOT 
VPC(1 ,3)=VPC(1 ,3)/D0T 

VPC(2, l)»VPC(3,2)*VPC(l,3)-VPC(3,3)*VPCdi2) 
VPC(2,2)«VPC(3,3)*VPCd i l)-VPC(3,l)*VPC(l # 3) 

VPC (2. 3) -VPC (3. 1) ♦VPC (1. 2) -VPC (3 , 2) *VPC (1.1) 

WRITE (6, 3202) 

FORMAT (2H *,6X/THE PATTERN AXES ARE AS FOLLOWS: * ,T79, 1H*) 

DO 3204 NI-1 ,3 

WRITE(6,3006) 

VRITE(6 , 3205) (NI ,NJ,VPC(NI ,NJ) .NJ-1 ,3) 

FORMA T(2H ♦ , IX, 3(2X , *VPC( Ml, ' . Ml. ')■' .F9.6) .T79.1H*) 

DO 3203 N=1 ,3 
XPC(N) *0. 

LCNPAT-IS PATTERN CONIC CUT(T OR F)? 

T-THETA CUT (CONIC CUT) 

F-PHI CUT(PHI CONSTANT) 

TPPD-PATTERN ANGLE THAT IS CONSTANT 
IF LCNPAT-T: TPPD-THP CONSTANT 
IF LCNPAT-F : TPPD-PHP CONSTANT 

IF(LVOLP) CO TO 3212 
TPPV-0 . 

NPV=1 

READCB.*) LCNPAT.TPPD 
WRITE(6 .3006) 

IF( . NOT . LCUPAT) WRITE(6,3206) TPPD 

FORMAT (2H ♦ ,BX, ’THETA IS BEING VARIED WITH PHI* '.F10.6 
2.T70.1H*) 
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0020 


IF(LCNPAT) WRITE(6,3207) TPPD 



0021 

3207 

FORMAT (2H -.EX/PHI IS BEING VARIED WITH THETA- \F10.6 



0022 


2.T79.1H*) 



0023 


WRITE(6,3006) 



0024 


CO TO 3216 



0025 

cm 




0028 

cm 

TPPD-START OF VOLUMETRIC PATTERN ANGLE 



0027 

cm 

TPPV« INCREMENT FOR VOLUMETRIC PATTERN ANCLE 

• 


0028 

cm 

NPV= NUMBER OF VOLUMETRIC PATTERN ANGLES 


V 

0020 

cm 




0030 

3212 

READ(B, *) LCNPAT , TPPD , TPPV , NPV 



0031 


WRITE(6 , 3006) 


«^l 

0032 


IF(LCNPAT) WRITE(6.3213) 



0033 

3213 

FORMAT (2H ‘.BX/FOR THETA ANGLE: ’ .179, 1H*) 



0034 


IF(. NOT. LCNPAT) WRITE(6,32I4) 



0935 

3214 

FORMAT (2H *,6X,’FCR PHI ANGLE: • ,T79 . 1H*> 



0036 


WRITE(6 , 3215) TPPD . TPPV # NPV 



0037 

3215 

FORMAT (2H *,6X, 'START- '.FIO^,' STEP- ’FIO-E,’ NUMBER- *,I4 



0038 


2.T79.1H*) 



0030 


WRITE(6 ( 3OO0) 



0040 


IF (LCNPAT) WRITE(6,3214) 



0041 


IF(. HOI. LCNPAT) VfRITE(6,3213) 



0042 

3216 

CONTINUE 



0043 


IF(LFARH) CO TO 3217 



0944 

cm 




0045 

cm 

IB , IE , IS=BEC IN , END , STEP 



0946 

c$$$ 




0047 


READ(6.») IB , IE, IS 



004B 


IF(IB.LT.O) IB-0 



0940 


IF( IE . GT . 360) IE*360 



0050 


IF(IS.LE.O) IS*1 



0051 


TPPS*IB 



0952 


TPPI-IS 



0053 


NPN* (IE- IB) /IS*1 



0054 


WRITE(6,3208) IB,IE,IS 



0065 

3208 

FORMAT (2H *,6X ( 'THE RANGE OF PATTERN ANGLE INDICES FOR THIS* 



0056 


2, 1 RUN ARE: \I3,2( 1 , ’.13) ,T79 t lH*) 



0057 


CO TO 3218 



0058 

3217 

CONTINUE 



0959 

c$$$ 




0960 

cm 

TPPS=START OF PATTERN 



0961 

cm 

TPPI=PATTERN INCREMENT 



0062 

cm 

NPN= NUMBER OF PATTERN POINTS 



0963 

cm 




0964 


READ (5,*) TPPS , TPPI , NPN 



0065 


WRITE(6 , 3215) TPPS , TPPI , NPN 



0066 

3218 

CONTINUE 



0967 


RXS=1 . 



0968 


RXI=0 . 



0969 


TYS=TPPD 



0970 


TYI=TPPV 



0071 


PZS=TPPS 



0972 


PZI-TPPI 



0973 


IVP!I=3 



0974 


IF (LCNPAT) CO TO 3209 



0075 


TYS=TPPS 



0076 


TYI*TPPI 



0077 


PZS=TPPD 



0978 


PZI=TPPV 


* 

0070 


IVPN=-3 



0980 

3209 

CONTINUE 



0981 


GO TO 3000 


# 

0982 

C*== 

=== 


• 

0983 

3260 

CONTINUE 
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0084 

0086 

0086 

0087 

0088 
0080 
0000 
0001 
0002 

0003 

0004 

0005 

0006 

0007 

0008 
0000 
1000 
1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 
1000 
1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 
1010 
1020 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 
1020 

1030 

1031 

1032 

1033 

1034 
1036 

1036 

1037 

1038 
1030 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 


C««« RD: COMMAND «=— 

C$$$ 

C$$$ RANCS*FAR FIELD RANGE DISTANCE 

cm 

CM! NOTE IF RANGS IS GREATER THAN OR EQUAL TO 1.E30 
CM$ THAN LRANG VILL BE SET FALSE 

cm 

LRANG*. TRUE. 

READ(5,*) RANGS 

IF (RANGS . GT . 0 . 0E20) GO TO 3252 

RANG=UNITS*RANCS 

VRITE(6,3251) RANGS, LABEL (IUN IT) .RANG 

3251 FORMAT (2H *,5X.’THE FAR FIELD RANGE SPECIFIED IS \E12.6, 
2’ IN * , A6, T70, 1H* ,/2H *,5X,'THE RANGE SPECIFIED IN METERS’ 
3,’ IS ' ,E12 . 6 , T70 , 1H*) 

00 TO 3000 

3252 CONTINUE 
LRANG- . FALSE. 

RANC-1 . 

WRITE(6, 3253) 

3263 FORMAT (2H ♦.BX.’NO FAR FIELD RANGE SPECIFIED. * .T70.1H*) 

CO TO 3000 
C— — - 

3270 CONTINUE 

C=*= VN: COMMAND «««* 

cm 

C$$| NEAR ZONE VOLUMETRIC PATTERN 

cm 

LVOLP- . TRUE. 

CO TO 3271 

C=KS==S 

3260 CONTINUE 
C**= PN : COMMAND 

cm 

CM$ IPC(N)=XYZ LOCATION OF THE NEAR ZONE PATTERN ORIGIN 

cm 

LVOLP*. FALSE. 

3271 LNEAR- . TRUE . 

READ(5,*) (XPC(N) ,N*1 ,3) 

WRITE(6 ,3254) LABEL (IUN IT) , (XPC(N) .N-1.3) 

3254 FORMAT (2H *, IX , ’PATTERN ORIGIN IN ’ , A6, ’ : XPC(l)-’ .F8.3 

2,' XPC(2)-’ ,F8.3, ' XPC(3)-’ ,F8.3, T70, 1H+) 

VRITE(6 ,3006) 

DO 3263 H-1.3 
3263 XPC(N)-UNITS*XPC(N) 

IF(IUNIT.NE.l) VRITE(6 ,3264) LABEL(l) . (XPC(N) ,'H-l ,3) 
IF(IUNIT.NE.l) VmiTE(6,3006) 

VRITE(6,300C) 

cm 

cm THCZ ,PHCZ=ORIENTATION OF THE Z-AXIS OF THE PATTERN AXES 
CIM RELATIVE TO THE FIXED COORDINATE SYSTEM 

cm 

CM$ THCX ,PHCX=ORIENTATION OF THE X-AXIS OF THE PATTERN AXES 
C$M RELATIVE TO THE FIXED COORDINATE SYSTEM 

CM* 

READ(6 , *) THCZ ,PHCZ, THCX, PHCX 

VPC (3 , 1) -SIN (THCZ*RPD) *COS (PHCZ*RPD) 

VPC (3 , 2) -SIN(THCZ*RPD) *SIN (PHCZ*RPD) 

VPC (3 , 3) -COS (THCZ*RPD) 

VPC(1 , 1)=SIN(THCX*RPD) *COS(PHCX*RPD) 

VPC(1 , 2)*SIN (THCX-RPD) *SIN (PHCX*RPD) 
VPC(1,3)-C0S(THCX*RPD) 

CIM INSURE VPC(1,N) IS PERPENDICULAR TO VPC(3,N) 

DZX-VPC(3, 1)*VPC(1 , 1)*VPC(3 , 2) *VPC(1 ,2)+VPC(3,3)*VPC(l ,3) 



1049 


IF(ABS(DZX) . GT.O. 1) VRITE(6.3201) 



1040 


IFCABS(DZX).CT.O.l) STOP 



1050 


VPC(1,1)*VPC(1 1 1)-VPC(3,1)*DZX 



1061 


VPC (1 , 2) =VPC ( 1 , 2) -VPC (3 , 2) OZX 



1062 


VPC (1 , 3) »VPC (1,3) -VPC (3 , 3) *DZX 



1053 


D0T=VPC (1 , 1) v VPC ( 1 , 1) +VPC ( 1 . 2) *VPC ( 1 , 2) +VPC ( 1 , 3) * VPC (1 , 3) 



1064 


D0T=SQRT(D0T) 



1065 


vpc(i,i)=vpc(i,i)/Dor 

* 


1056 


VPC(1 ,2)=VPC(1 ,2) /DOT 



1057 


VPC(1 , 3)=VPC(1 ,3) /DOT 



1058 


VPC (2 , 1 ) *=VPC (3 , 2) *VPC (1 1 3) -VPC (3 , 3) *VPC (1 , 2) 


c 

1060 


VPC (2 , 2) =VPC(3 , 3) *VPC(l , 1) -VPC (3 , 1) *VPC(1 ,3) 


• 

•MQ 

1060 


VPC (2 , 3)*VPC(3 , l)*VPC(l ,2) -VPC (3, 2) +VPC(1 # 1) 



1061 


WRITE(6 , 3202) 


1 

1062 


DO 3264 N I = 1 , 3 



1003 


KRITE(6,3006) 



1064 

3264 

VmiTE(6,3205) (NI ,NJ , VPC(NI ,NJ) ,KJ=1 .3) 



1065 


VRITE(6 ,3006) 



1006 


VRITE(8,30 06) 



1007 

c*M 




1008 

cm 

LRECT-F, SPHERICAL PATTERN CUT 


*— » 

1060 

cm 

LRECT=T. LINEAR PATTERN CUT 



1070 

cut 




1071 

cut 

RXS , TVS , PZS'STARTING LOCATION OF PATTERN 



1072 

cut 

LRECT=F : RADIAL, THETA .PHI 



1073 

cut 

LRECT=T : X,T,Z 



1074 

cut 




1076 

cut 

RXI , TTI ,PZI=SIZE OF INCREMENTAL STEPS 



1076 

cut 

LRECT=F : RADIAL .THETA, PHI 



1077 

cut 

LRECT=T : X,Y,Z 



1078 

cut 




1070 


READ(5, *) LRECT 



1080 


READ(6 , *) RXS.TYS.PZS 



1081 


READ (6 , *) RXI.TYI.PZI 



1082 


IF(LRECT) VRITE(6,3261) RXS .TYS.PZS, LABEL (IUN IT) 



1083 

3261 

F0RMAT(2H * ,2X , 'STARTING XYZ=' ,F10.6,2(' . ' .F10.6) ,1X,A6 



1084 


2.T79.1HO 



1085 


IF (LRECT) WRITE(0 , 3262) RXI , TYI ,PZI , LABEL(IUNIT) 


my 

1086 

3262 

FORMAT (2H *,2X, , STEP XYZ=' ,F10.5,2(’ , * ,F10.6) , IX , A6.T79, 1H0 



1087 


IF(. NOT. LRECT) VmiTE(6,3267) RXS, TYS.PZS, LABEL(IUNIT) 



1088 

3267 

FORMAT (2H *, 2X STARTING R , THETA .PHI* ' ,F10 . 5 



1089 


2,2(' , * ,F10.6) , IX , A6 , ' AND DEG . ' , T79 , 1H*) 



1090 


IF (.NOT. LRECT) WRITE(6 ,3268) RXI , TYI ,PZI .LABEL (IUNIT) 


•*7 

1091 

3288 

FORMAT (2H *,2X,'STEP R, THETA ,PHI=* ,F10.5,2(* , ’ ,F10.6) , 1X.A6 


* 

1092 


2, ‘ AND DEG. 1 .T70.1H*) 



1093 


VRITE(6 , 3006) 



1094 


RXS*UNITS*RXS 



1096 


RXI=UNITS*RXI 



1096 


IF(. NOT. LRECT) GO TO 3265 



1097 


TYS=UNITS*TYS 



1098 


PZS=UNITS*PZS 



1099 


TYI=UNITS*TYI 



1100 


PZI=UNITS*PZI 



1101 

3266 

CONTINUE 



1102 


IF (LRECT . AND . IUNIT . NE. 1) WRITE(6,3261) RXS.TYS.PZS, LABEL(l) 



1103 


IF (LRECT . AND . IUNIT . NE . 1) *RITE(6 , 3262) RXI , TYI ,PZI , LABEL(l) 



1104 


IF(. NOT. LRECT. AND. IUNIT. NE.l) WRITE(6 , 3267) RXS .TYS.PZS ,LABEL(1) 



1106 


IF (.NOT. LRECT. AND. IUNIT. NE.l) VRITE(6 ,3268) RXI ,IYI ,PZI , LABEL(l) 



1106 


IF (.NOT. LRECT. AND. IUNIT. NE.l) WRITE(6 , 3006) 



1107 


IF (LVOLP) CO TO 3272 



1108 

cut 




1109 

cut 

NPN= NUMBER OF PATTERN POINTS 


m 

• 

1110 

cut 




mi 


READ (6,*) NPii 




1G2 




1112 


VRITE(6,326D) KPN 


1113 

3260 

F0RMAT(2H *,6X.’NUMBER OF PATTERN POINTS* 1 , 14 ,T70, 1H*) 


1114 


IVPN*3 


me 


IF(1BS(PZI) .LT.SMLR) IVPN—3 


1116 


IF(LRECT) IVPN'O 


1117 


CO TO 3276 


1118 

cm 



1110 

cm 

IVPll-1 FOR R-IHEIA OR X-T VARYIIIC 


1120 

cm 

HPV'NOMBER OF R OR X AND NPN*IIUMBER OF IHEIA OR T 


1121 

cm 



1122 

cm 

IVPN*2 FOR R-PHI OR X-Z VARYING 

*■ 

1123 

cm 

NPV*NUMBER OF R OR X AND NPN*NUMBER OF PHI OR Z 


1124 

cm 



1125 

cm 

IVPN=3 FOR THETA-PHI OR Y-Z VARTINC 


1126 

cm 

NPV»NUMBER OF THETA OR Y AND NPN-NUMBER OF PHI OR Z 


1127 

CM* 



1128 

cm 

IF I VPN IS LESS THAN ZERO THE ORDER IS REVERSED 


1120 

cm 

I.E. IVPN--1 FOR THETA-R OR Y-X VARYING 

hit 

1130 

cm 



1131 

3272 

READ(6,*) IVPN , HPV , NPN 


1132 


IF(IVPN.Eq.l) VRITE(6,3273) NPV.NPN 


1133 


IF(IVPN.Eq.-l) VRITE(8 , 3273) NPN.NPV 


1134 

3273 

FORMAT (2H *,BX,’NUMBER OF POINTS FOR R OR X= \I4 


1136 


2/ AND THETA OR Y= ',14) 


1136 


IF (IVPN .EQ'. 2) VR1TEC6 ,3274) NPV.NPN 


1137 


IF (I VPN. EQ . -2) VRITE(6,3274) NPN.NPV 


1138 

3274 

FORMAT (2H ♦ , 6X , * NUMBER OF POINTS FOR R OR X- \I4 

hM 

1130 


2,’ AND PHI OR Z- ’,14) 


1140 


IFOVPN.EQ.3) VRITE(fl,3275) NPV.NPN 


1141 


IF(IVPN.Eq.-3) VRITE(6,327S) NPN.NPV 


1142 

3276 

FORMAT (2H *, 6X NUMBER OF POINTS FOR THETA OR Y- * ,14 

Wh 

1143 


2/ AND PHI OR 2* ' .14) 


1144 

3276 

CONTINUE 


1146 


IF (NPN . CT . MODX) VRITE(6 , 3266) NPN 


1146 

3266 

FORMAT ( ’ ***** NUMBER OF POINTS* ' , 13 . * PROGRAM ABORTS' 

‘ 

1147 


2, 'PATTERN STORAGE DIMENSION IS EXCEEDED ***♦*’) 


1148 


IF(NPN.GT.MODX) STOP 


1140 


CO TO 3000 


1160 




1161 

5240 

CONTINUE 

Iw 

1162 


BP: COMMAND ****** 


1163 

cm 



1164 

cm 

BACK OR BISTATIC NEAR ZONE SCATTERING 


1166 

cm 


h— 

1166 

cm 

THE SG: , RG: . AND PN: COMMANDS MUST BE SPECIFIED 


1167 

cm 

TO USE THIS OPTION. 


1168 


LSCAT= . TRUE . 

■ 

.1160 


GO TO 3000 


1160 

c*=== 

=== 


1161 

5260 

CONTINUE 


1162 

Cexs 

CR: COMMAND ====** 


1163 

CM* 


! 

1164 

CM* 

RANGE GATE INPUT 

kta 

1166 

cm 



1166 

CM* 

RMIN*THE MINIMUM DISTANCE FROM TRANSMITTER TO RECEIVER 


1167 

CM! 

RMAX*THE MAXIMUM DISTANCE FROM TRANSMITTER TO RECEIVER 


1168 

CM* 


Li 

1160 

CM* 

THE PN: COMMAND MUST BE USED 

. 

1170 

CM* 



1171 


READ(S,0 RMIN.RMAX 


1172 


\fRITE(6 ,6261) RMIN ,RMAX .LABEL (IUNIT) 


1173 

6261 

FORMAT (2H ♦.2X/RMIN* 1 t F10 .6, 'RMAX* \F10.6,' IN ' ,A6 

• 

1174 


RMI N*UH I TS *RMIN 


1176 


RMAX=UNITS*RMAX 
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1176 

1177 

1178 
1170 
1180 
1181 
1182 

1183 

1184 

1185 

1186 

1187 

1188 
1180 
1100 
1101 
1102 

1103 

1104 

1105 

1196 

1197 
1108 
1100 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 
1210 
1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 
1236 

1236 

1237 

1238 

1239 


VRITECe.BOei) RMIN ,RMAX .LABEL (1) 
GO TO 3000 


£z:ssexec 


3300 CONTINUE 

C»b PG: COMMAND •«««= 

cm 

c$$$ PLATE GEOMETRY INPUT 

CU$ 

LPLA« . TRUE . 

MPX*MPX*1 

IF(KPX.GT.KPDX) VRITE(6,90i) MPX 

001 FORMAT (' ***** HUMBER OF PLATES* M3,* PROGRAM ABORTS* , 
2' SINCE MAX. PLATE DIMENSION IS EXCEEDED. ♦****•) 
IF(MPX.CT.MPDX) STOP 
WRITE(6.3301) MPX 

3301 FORMAT (2H *,5X,*THIS IS PLATE NO. *.13/ IN THIS \ 

2 ’ SIMULATION . * ,T79, 1H*) 

M P=MPX 

VRITE(6.3006) 

. VRITE(6 ,3006) 

VRITE(6,3009) 

CUt 

cm MSP (MP) *NUM3ER OF CORNERS ON THE MP-TH PLATE. 

cm 


cttt 

cut 

cut 

cut 

cm 

cm 

cm 

cm 


3392 

3393 


3394 


cm 

cut 

cut 


3301 


cm 

cm 

cut 

cm 

cm 

cm 

cut 

cm 


LSLAB= 1 IMPLIES TRANSPARENT THIN DIELECTRIC SLAB 
= 0 IMPLIES METAL PLATE, AND 

=-2 IMPLIES DIELECTRIC COVERED PLATE ON BOTH SIDES 
—4 IMPLIES DIELECTRIC COVERED PLATE ON SIDE OF NORMAL 

NOTE: IF DIELECTRIC COVERED, ONE MUST READ DIELECTRIC DATA. 


READ(6, *) MEP(MP), LSLAB(MP) 

IF(LSLAB(MP) .Eq.O) WRITE(6 , 3392) 

FORMAT (2H *,6X, ’METAL PLATE USED IN THIS SIMULATION 1 ,T70, 1H*) 
IF(LSLAB(MP).Eq.l) tfRITE(6,3393) 

FORMAT (2H *, 5X . 1 TRANSPARENT THIN DIELECTRIC LATER USED IN THIS*, 
2 ‘SIMULATION* , T70 , 1H*) 

IFCLSLAB (MP) . EQ . -2) WRITE C6 , 3394) 

FORMAT (2H *, 5X , 'DIELECTRIC COVERED PLATE USED IN THIS*. 

2’ SIMULATION' ,179. 1H*) 

VRITE(6,3006) 

IF(LSLAB(MP) .EQ.O) GO TO 3313 

MSLAB(MP)= NUMBER OF DIELECTRIC LAYERS ON THE MP PLATE 

READ (6,*) HSLAB(NP) 

NSS-NSLAB(MP) 

IF(NSS.GT.MLDX) STOP 
WRITE(0 , 3391) 

FORMA T(2H *,13X, ‘THICKNESS’ ,2X, 'DIELECTRIC* ,3X, 'LOSS’ ,4X, 
2'PERMITIVITY ’ ,3X, ’LOSS’ ,T79,1H*,/, 

32H * ,5X, ‘LAYER#’ ,2X, 'IN METERS ’ , 3X , ’CONSTANT’ ,3X TANGENT * , 

44X, ’CONSTANT’ , 3X , * TANGENT ' ,T79 f lH*,/, 

52H *.6X, * ’ , 2X , ’ * , 2X , ’ ’ ,2X. * * , 

62X , ’ * ,2X, * * , T79.1H*) 

DSLAB (NS ,MP) -THICXNESS OF NS LAYER 

ERSLAB (NS , MP) ^RELATIVE DIELECTRIC CONSTANT OF THE NS LAYER 
TESLAB (NS , MP) =DIELECTRIC LOSS TANGENT OF THE NS LAYER 
URSLAB(HS,MP)=RELATIVE PERMEABILITY CONSTANT OF THE NS LAYER 


n 
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f , 

i 



L 


i 



1240 

cm 


1241 

cm 

TMSLAB (NS ,MP)*PERMEABILITT LOSS TANGENT OF THE NS LATER 

1242 

cm 


1243 


DO 3312 NS»1,HSS 

1244 


READ(B,*) DSLAB(NS.MP) .ERSLAB(NS.MP) , TESLAB(NS.MP) , 

1245 

2URSLABOIS.MP) .TMSLAB(NS.MP) 

1246 


DSLAB (NS , MP) -DSLAB (NS , MP) ♦UNITS 

1247 

3312 

VRITE(6 , 3399) NS,DSLAB(NS,MP) ,ERSLAB(NS ,MP) ,TESLAB(NS,MP) . 

1248 

2URSLAB(NS.MP) .TMSLAB(NS.MP) 

1240 

3390 

FORMAT (2H ♦.«X,I3.4X.F9.4,2X,F10.4,2X,F7.4,3X,ril.4,2X, 

1250 

2F7.4.T79.1H*) 

1261 


VRITE(6,300S) 

1252 


WRITE(6,3006) 

1253 


VRITE(6,3000) 

1264 

3313 

MEI*MEP(MP) 

1256 


IF(MEX.GT.MEDX) WRITE(0.903) MP.MEX 

1256 

003 

F0RMATO ***** PLATE # , ,I3.* HAS M3.' EDGES.', 

1267 


2' PROCRAM ABORTS SINCE MAX. EDGE DIMENSION IS EXCEEDED.' 

1258 


3, ’ ♦♦♦♦♦’) 

1269 


IF(MEX .GT.MEDX) STOP 

1260 


DO 6 ME=1,MEX 

1261 

cm 


1262 

cm 

XX(N,ME,MP)*X,T,Z COMPONENTS OF CORNER tME OF PLATE #MP. 

1263 

cm 

N«1(X) ,H=2(T) ,N*3(Z) . INPUT CORNER DATA AS FOLLOWS: 

1264 

cm 

1..1..0. 

1265 

cm 

-1,1.0. 

1266 

cm 

-1..-1..0. 

1267 

cm 

1..-1..0, 

1268 

cm 

THIS IS THE INPUT FOR A 2 METER SQUARE PLATE. 

1260 

cm 

NOTE THAT IF THERE IS MORE THAN ONE PLATE, THEN THE CORNER 

1270 

cm 

DATA FOR EACH PLATE WOULD FOLLOW SEQUE1IIIALLT . 

1271 

cm 


1272 


READCS,*) (XKN.ME.MP) ,N»1,3) 

1273 

5 

CONTINUE 

1274 


WRITE(6,3302) LABEL(IUNIT) 

1276 

3302 

FORMAT (2H * ,2X , 'PLATE* ' ,2X . 'CORNER# ' ,3X ,' INPUT LOCATION IN '. 

1*76 


2A6.4X, 'ACTUAL LOCATION IN METERS' .T79, 1H*) 

1277 


VRITE(6, 3303) 

1278 

3303 

FORMA T(2H *,2X.’ -',2X.' ' 

1270 


2.3(2X.2C .T79.1H*) 

1280 


DO 3304 ME=1 ,MEX 

1281 


WRITE (0.3006) 

1282 


DO 3310 N a l ,3 

1283 

3310 

Xq(H)*XX(N,ME.MP) 

1284 


DO 3311 N*1 ,3 

1285 

3311 

IX(N,ME.MP)=UHITS*(XG(l)*VRT(l.N)*Xq(2)*VRT(2.N) 

1286 


2*Xq(3)*VRT(3,N))«TR(N) 

1287 


WRITE(6 ,3306) MP.ME. (Xq(N) ,N=1,3) , (XX(N.ME.MP) ,N=1 ,3) 

1288 

3305 

FORMAT (2H *,4X,I3,6X,I2,2X,2(2X,F8.3,2(' . ' .F8.3)) .T79.1H*) 

1280 

3304 

CONTINUE 

1200 


GO TO 3000 

1201 

(Jcor 

K = S 

1202 

3350 

CONTINUE 

1293 

Csss 

NP: COMMAND 

1204 

cm 


1205 

c$$$ 

INITIALIZE PLATE DATA. 

1206 

cm 


1207 


LPLA«. FALSE. 

1208 


MPX«0 

1200 


YfRITE(6 ,3351) 

1300 

3351 

FORMAT (2H *,5X,* THE PLATE DATA IS INITIALIZED. M70.1H*/ 

1301 


2,2H ♦ ,BX , ' NO PLATES ARE PRESENTLY IN THE PROBLEM. \T79.1H*) 

1302 


GO TO 3000 

1303 

{)■» 

XS3 
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1304 

3400 

CONTINUE 

1305 

c*== 

SG; COMMAND =««*= 

1300 

cttt 


1307 

cut 

MSX*NUMBER OF ANTENNA ELEMENTS. 

1308 

cut 


1300 


LSMP=. FALSE. 

1310 


MSX=M5X*1 

1311 


MSXAT=MSAT*MSX 

1312 


IF(MSXAT.GT.MSDX) WRITE(8,904) MSXAT 

1313 

004 

FORMAT ( 1 ***** NUMBER OF SQURCES= \I3.' PROGRAM*, 

1314 


2’ ABORTS SINCE MAX. SOURCE DIMENSION IS EXCEEDED. ***♦*') 

1315 


IF (MSXAT . CT . MSDX) STOP 

1316 


WRITE(6,3401) M3X 

1317 

3401 

FORMAT (2H *,5X,’THIS IS SOURCE NO. ' , 13, * IN THIS*, 

1318 


2* COMPUTATION. \T7P.1H*) 

1319 


WRITE(6 , 3008) 

1320 


KRITE(0,3C06) 

1321 

cut 


1322 

cut 

XSS(N,MS)*XTZ LOCATION OF MS-TH ANTENNA ELEMENT. 

1323 

cut 


1324 

ctU 

IMS(MS)«TYPE OF LINEAR ANTENNA 

1325 

cttt 

. LT . 0: ELECTRIC LINEAR ELEMENT 

1326 

cut 

. GT.O: MAGNETIC LINEAR ELEMENT 

1327 

cut 

ABS(IMS)=1 ; UNIFORM CURRENT DISTRIBUTION 

1328 

cut 

=2: STANDARD DIPOLE CURRENT DISTRIBUTION 

1320 

cut 

=3: CAVITY BACKED SLOT CURRENT DISTRIBUTION (TEOl) 

1330 

cut 


1331 

cut 

HAWS (MS) =APERTUEE WIDTH IN WAVELENGTHS (NOTE: IF 

1332 

cut 

HAWS (MS) IS LESS THAN .1 LAMBDA, SOURCE IS 

1333 

ctU 

CONSIDERED TO BE DIPOLE SOURCE 

1334 

ctU 

HS (MS) = LENGTH OF LINEAR ELEMENT IN WAVELENGTHS 

1335 

cut 


1336 

cut 

THSZ ,PKSZ= ORIENTATION ANGLES USED TO DEFINE LINEAR 

1337 

cut 

ELEMENT AXIS. 

1338 

cut 


1339 

cut 

THSX ,PHSX=GRIENTATION ANGLES USED TO DEFINE APERTURE 

1340 

ctU 

PLANE OR DIPOLE X-AXIS. 

1341 

cut 


1342 

cttt 

WMS , WPS=MAGNITUDE AND PHASE QF EXCITATION OF 

1343 

cut 

MS-TH ELEMENT. 

1344 

cut 


1345 


MS=MSX 

1348 


MSA(1 ,MS) tt O 

1347 


MSA (2, MS) =0 

1348 


READ(5 , *) (XSS(N ,MS) , N*1 ,3) 

1340 


READ(B, *) THSZ f PHSZ , THSX , PHSX 

1350 


READ (5 , *) IMS (MS) ,HS(MS) .HAWS(MS) 

1351 


READ (5 , *) VMS , WPS 

1362 


IF (IMS (MS) .LT.O) VRITE(6 ,3411) IMS(MS) 

1353 

3411 

FORMAT (2H *,6X, , THIS IS AN ELECTRIC SOURCE OF TYPE ’ ,13,179, 1H*) 

1364 


IF (IMS (MS) . GE.O) VRITE(6 , 3412) IMS(MS) 

1355 

3412 

FORMAT (2H ♦.BX.’THIS IS A MAGNETIC SOURCE OF TYPE * , 13, T70, 1H*) 

1356 


WRITE(6 ,3003) 

1357 


IF(IUNST.EQ.O) GO TO 3414 

1358 


UNSTS=UNIT (IUNST) 

1350 


VRITE(6 , 3413) HS(MS) , HAWS (MS) , LABEL (IUNST) 

1360 

3413 

FORMAT (2H *,5X, , S0URCE LENGTH^ * , F10 . 5 . ’ AND WIDTH=* 

1361 


2,F10.5,1X,AC,T79,1H+) 

1362 


HS (MS) =UNSTS * UN ITF* HS (MS) 

1363 


HAY/S (MS) -UNSTS*UH I TF*HAWS (MS) 

1364 


IF (IUNST. NE. 1) WRITE(6 ,3006) 

1365 


IF ( IUNST. NE. 1) WRITE(6 , 3413) HS (MS) , HAWS (MS) .LABEL (1) 

1366 


GO TO 3416 

1367 

3414 

WRITE(6 , 3415) HS (MS) .HAWS (MS) 



1368 

1369 

1370 

1371 

1372 

1373 

1374 
1376 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 
1406 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 
1416 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 
1426 

1426 

1427 

1428 

1429 

1430 

1431 


3416 FORMAT (2H *,6X, 'SOURCE LENGTH* 6 * .F10.6, ’ AND WIDTH* ' 

2.F10.5, * WAVELENGTHS* .T79.1HO 

3416 WR1TE(6,3006) 

WS (MS) *WMS*CEXP (C J*WPS*RPD) 

WRITE (6 ,3417) VMS, WPS 

3417 FORMAT (2H ♦.BX.'THE SOURCE WEIGHT HAS MAGNITUDE-* 

2,F10 .5, 1 AND PHASE-* ^10.6,179, 1H*) 

WRITE(6,3006) 

WRITE (6 ,3006) 

VRITE(6,3421> LABEL (IUNIT) 

3421 FORMAT (2H * ,T6, ’SOURCE#* ,T17, * INPUT LOCATION IN * ( A6,T46, 

2 ‘ACTUAL LOCATION IN METERS *, T79 , 1H*) 

WRITEC6.3422) 

3422 FORMAT (2H * ,T6,7( *- *) , T16 ,27(*- *) , T46,27( *- *) . 

2T79, 1H*) 

WRITE (6, 3008) 

DO 3424 N-l ,3 
3424 XQ(N)*XSS(N,MS) 

DO 3426 N=1 ,3 

3426 XSS (N , MS) -UN ITS* (XQ Cl) * VRT ( 1 , N) +XQ (2) ♦VRT (2 , N) 

2+XQ (3) ♦VRT(3,N)) 4 TR(N) 

WRITE(6,3426) MS, (XQ(N) ,N*1,3) , (XSS (N, MS) ,N*1,3) 

3426 FORMAT (2H * ,T8 , 13 ,T16 , F8 . 3,2( ’ , * ,F8.3) ,T44 ,FB .3 ,2( * , 1 ,F8.3) 
2.T79.1H*) 

T9R-THS2*RPD 
PQR*PHSZ*RPD 
XQ(1)*SIN(TQR) *COS(PQR) 

XQ (2) *SIH (TQR) *SIN (PQR) 

XQ(3)*C0S(TQR) 

DO 3431 N-1,3 

3431 VXSS(3,N ,MS)-XQ(1)*VRT(1 ,N)*XQ(2) *VRT(2 ,N)*XQ(3) *VRT(3,N) 
TQR*THSX*RPD 

PQR*PHSX*RPD 

XQ ( 1) =SIN (TQR) *COS (PQR) 

XQ (2) -SIN (TQR) ♦SIN (PQR) 

XQ(3)=C0S(TQR) 

DO 3432 N=l,3 

3432 VX&S(1 ,N,MS)=XQ(1) *VRT(1 ,N) +XQ(2) *VRT(2,N)*XQ(3) *VRT(3,N) 
DZX-VXSS ( 1 , 1 , MS) * VXSS (3,1, MS) ♦ VISS ( 1 , 2 , MS) * VXSS (3 , 2 , MS) 

2 * VXSS ( 1 , 3 , MS) ♦VXSS (3 , 3 , MS) 

IF ( ABS (DZX) . GT . 0 . 1) WRITE(6 ,3436) 

3438 FORMAT (' ♦♦* PROGRAM ABORTS IN SOURCE SECTION IN THAT THE*, 

2* COORDINATES ARE NOT ORTHOGONAL I!! ♦♦♦*) 

IF(ABS(DZX).GT.0.1) STOP 

VXSS ( 1 , 1 , MS) -VXSS (1 . 1 , MS) -VXSS (3 , 1 , MS) +DZX 

VXSS ( 1 , 2 , MS) -VXSS ( 1 , 2 , MS) -VXSS (3 , 2 , MS) *DZX 

VXSS(1,3,MS)-VXSS(1 ,3,MS)-VXSS(3,3,MS)*DZX 

D0T*VXSS(1 , 1 ,MS)*VXSS(1 , 1 ,MS)*VXSS(1 ,2,MS)*VXSS(1 , 2, MS) 

2 ♦VXSS ( 1 , 3 , MS) ♦VXSS ( 1 , 3 . MS) 

DOT-SQRT(DOT) 

VXSS ( 1 , 1 , MS) -VXSS ( 1 , 1 , MS) /DOT 
VXSS ( 1 , 2 ,MS) *VXSS (1 , 2 ,MS) /DOT 
VXSS (1,3, MS) -VXSS ( 1 , 3 , MS) /DOT 

VXSS (2 , 1 , MS) -VXSS (3 , 2 , MS) ♦VXSS ( 1 , 3 , MS) -VXSS (3 , 3 , MS) ♦VXSS ( 1 . 2 , MS) 
VXSS (2 , 2 , MS) -VXSS (3 , 3 , MS) *VXSS ( 1 , 1 , MS) -VXSS (3 , 1 , MS) ♦VXSS ( 1 . 3 , MS) 
VXSS (2, 3, MS) -VXSS (3, 1 ,MS)*VXSS(1 ,2,MS)-VXSS(3 ,2,MS) ♦VXSS(l ,1,MS) 
VRITE(6,3006) 

VRITE(6,3006) 

VRITE(8,3437) 

3437 FORMAT (2H ♦.SX.’THE FOLLOWING SOURCE ALIGNMENT IS USED:* 

2 ,T79 , 1H*) 

DO 3433 NI=1 ,3 
WRITE(6,3008) 

3433 WRITE(6 ,3434) (NI ,NJ ,MS,VXSS(NI ,NJ,MS) ,HJ=1 .3) 
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1432 

3434 

F0RMAK2H * , 1X,3(2X, 'VXSSO , 11, ' , ' ,11, ’ , ’ ,12, ')■' ,F9.6) 



1433 


2,T79, 1H*) 



1434 


CO ID 3000 



1438 

(J>S33 

I = = 



1436 

3810 

CONTINUE 



1437 


SA: COMMAND ====== 



1438 

cm 




1439 

cm 

MSX-ltUMBEH OF ANTENNA ARRAY GROUPINGS. 


«** 

1440 

cm 




1441 

cm 

MSAX-NUMBER OF ELEMENTS PER CROUPING. 



1442 

cm 



* 

1443 


LSMP-. FALSE. 


* 

1444 


MSX-MSX+1 


\ 

1446 


READ (8 , *) MS AX 



1446 


MSA T «MS A T+MS AX 



1447 


MSXAT*MSAT*MSX 



1448 


IF (MSXAT . CT . MSDX) WlITE(e,P04> MSI AT 


I 

1440 


IF(MSXAT.CT.MSDX) STOP 



1480 


WRITE(C , 3808) MSX.MSAX 



1451 

3808 

FORMAT (2H *.SX. , THIS IS SOURCE HO. ’,13.' IH THIS’, 



1452 


2' COMPUTATION. ’ ,T79,1H*/2H *.6X. ’THERE ARE • , 



1483 


313/ SOURCES ARRAYED TOGETHER. * ,T79,1H*) 



1454 


KRITE(6,3000) 



1456 


VRITE(6,3006) 



1466 

cm 




1457 

cm 

XSS(N.MA)=XTZ LOCATION OF MA-TH ANTENNA ELEMENT. 



1458 

cm 




1469 

cm 

XSS(N,MS)=XYZ LOCATION OF MS-TH WEIGHTED CENTER OF THE 



1460 

cm 

ARRAY GROUPING. 



1461 

cm 




1462 

cm 

THE ARRAY ELEMENTS ARE ASSUMED TO HAVE THE SAME LENGTH, 



1463 

cm 

WIDTH, AND ORIENTATION. ALSO, THEY ARE ASSUMED TO BE 



1464 

cm 

EITHER ALL MOUNTED AND OR ALL OFF A PLATE. 



1465 

cm 

IMS(MS)=TYPE OF LINEAR ANTENNA 



1466 

cm 

. LT.O: ELECTRIC LINEAR ELEMENT 



1467 

cm 

. GT . 0 : MAGNETIC LINEAR ELEMENT 



1468 

cm 

AES ( IMS) =1 : UNIFORM CURRENT DISTRIBUTION 



1469 

cm 

=2: STANDARD DIPOLE CURRENT DISTRIBUTION 



1470 

cm 

=3: CAVITY BACKED SLOT CURRENT DISTRIBUTION (TE01) 


i 

1471 

cm 




1472 

cm 

HA VS CMS) = APERTURE WIDTH IN WAVELENCTHS (NOTE: IF 



1473 

cm 

HAWS (MS) IS LESS THAN .1 LAMBDA , SOURCE IS 



1474 

cm 

CONSIDERED TO BE DIPOLE SOURCE 



1476 

cm 

HS(MS)=LENGTH OF LINEAR ELEMENT IH WAVELENCTHS 



1476 

cm 




1477 

cm 

THSZ , PHSZ*ORIENTATION ANGLES USED TO DEFINE LINEAR 



1478 

cm 

ELEMENT AXIS. 



1479 

cm 




1480 

cm 

THSX,PHSX=ORIENTATION ANGLES USED TO DEFINE APERTURE 



1481 

cm 

PLANE OR DIPOLE X-AXIS. 



1482 

cm 



•— » 

1483 

cm 

VMS ,WPS=MAGNITUDE AND PHASE OF EXCITATION OF 



1484 

cm 

MA-TH ELEMENT. 



1485 

cm 




1486 


MS=MSX 



1487 


MAI=MSDX-MSAT*1 



1488 


MAF=MAI+MSAX-1 



1489 


MSA(1 ,MS)=MAI 



1490 


MSA(2 ,MS)=MAF 


* 

1491 


DO 3841 MA=MAI,MAF 



1492 

3841 

READ (5/) (XSS(H.MA) ,N=1,3) 



1493 


READ (5 , ♦) THSZ , PHSZ , THSX , PHSX 


* 

1494 


READ (8. *) IMS (MS) ,HS(M5) , HAWS (MS) 



1495 


IF (IMS (MS) .LT.O) VRITE(6,3411) IMS(MS) 
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1406 


IF (IMS (MS) .QE.O) VRITE(6 , 3412) IMS(MS) 

1407 


VRITE(6 , 3006) 

1408 


IF(IUNST.EQ.O) GO 10 3814 

1400 


UNSTS*UNIT(IUNST) 

1B00 


VRITE(6.3413) HS(MS) ,HAWS(MS) ,LABEL(IUNST) 

1601 


HS(MS)=UNSTS*UNITF*HS(MS) 

1602 


HAWS (MS) -UHSTS*UN IIF*HAWS (MS) 

1603 


IF(IUNST.NE.l) WRITE(6,3008) 

1604 


IF(IUNST.NE.l) WRITE(6 , 3413) HS(MS) , HAWS (MS) ,LABEL(1) 

1606 


GO TO 3816 

1606 

3814 

WRITE(6,3415) HS(MS) ,HAWS(MS) 

1607 

3816 

¥RITE(6,3006) 

1608 


WS(MS)»(1. ,0.) 

1600 


WMSA-O. 

1610 


XSAX=0. 

1611 


XSAY-O. 

1612 


XSAZ*0 . 

1613 


DO 3843 MA-MAI ,MAF 

1614 


READ(6, *) VMS, WPS 

1616 


VRITE(6,3817) MA. VMS, VPS 

1616 

3817 

FORMAT (2H * ,6X , * SOURCE M3,' HAS MAGNITUDE-' 

1617 


2.F10 .6, ' AND PHASE®' ,F10.6,T70, 1H*) 

1618 


WS (MA) -WMS*CEXP (C J*VPS*RPD) 

1610 


WMSA s WMSA*WMS 

1620 


XSAX*XSAX+WMS*XSS(1 ,MA) 

1621 


XSAY=XSAY+VMS*XSS(2,MA) 

1622 

3843 

XSAZ=XSAZ+WMS*XSS(3.MA) 

1623 


XSS(1 ( MS)®XSAX/WMSA 

1624 


XSS (2 , MS) “XSAY/WMSA 

1626 


XSS(3 ,MS)=XSAZ/VMSA 

1626 


VRITE(6,3006) 

1627 


WRITE(6 ,3006) 

1628 


WRITE (6 ,3421) LABEL (IUN IT) 

1620 


WRITE(6,3422) 

1630 


WRITE(6,3006) 

1631 


DO 3824 N*1 ,3 

1632 

3824 

Xq(N)®XSS(N,MS) 

1633 


DO 3826 N-1,3 

1634 

3826 

XSS (N , MS)=UHITS* (Xq (1) *VRT(1 ,N) + XQ (2) *VRT (2 ,N) 

1635 


2*Xq(3)*VRT(3,N))+TR(N) 

1636 


WRITE(6 , 3426) MS, (XQ(N) ,N«1,3) , (XSS(N.MS) ,N®1 ,3) 

1637 


DO 3820 MA-MAI ,MAF 

1638 


DO 3827 11*1,3 

1630 

3827 

Xq(N)®XSS(N,MA) 

1640 


DO 3828 N*1 ,3 

1641 

3828 

XSS (H,MA) -UNITS* (XQ (1) *VRT(1 , N) +XQ (2) *VRT(2 ,N) 

1642 


2+XQ (3) *VRT(3,N) ) +TR(N) 

1643 

3620 

WRIT£(6,3426) MA, (Xq(N) ,N*1,3) , (XSS(N.MA) ,N®1,3) 

1644 


TQR=THSZ*RPD 

1646 


PQR*PHSZ*RPD 

1646 


Xq(l)*SIN(TQR) *COS(PQR) 

1647 


XQ(2)=SIN(TQR)*SIN(PQR) 

1648 


Xq(3)®C0S(TQR) 

1640 


DO 3831 11=1 ,3 

1660 

3831 

VXSS(3,N,MS)=Xq(l)*VRT(l,N)*Xq(2)*VRT(2,N)*iq(3)*VRT(3,N) 

1661 


TqR=THSX*RPD 

1662 


pqr=phsx*rpd 

1663 


XQ(1)=SIH(TQR)*C0S(PQR) 

1664 


XQ(2)=SIN(TQR)*SIN(PqR) 

1666 


xq(3)=cos(iqR) 

1666 


DO 3832 11*1,3 

1667 

3832 

VXSS(1 ,N ,MS)®Xq(l) *VRT(1 ,N)+XQ(2)*VRT(2,N)*Xq(3)*VRT(3,N) 

1658 


DZX=VXSS ( 1 . i , MS) ♦ VXSS (3 , 1 , MS) ♦VXSS ( 1 , 2 , MS) * VXSS (3 , 2 , MS) 

1650 


2+VXSS ( 1 . 3 , MS) +VXBS(3 , 3 , MS) 







1660 


IF(A3S(DZX) .GT.0. 1) (nUTE(0,3436) 


1661 


IF(ABS(DZX) CI.O. 1) STOP 


1662 


VXSS ( 1 . 1 . F!S) -VXS3 ( 1 , 1 , H3) - VXSS (3 , 1 , MS) -DZX 


1663 


VXSS(1 , 2, MS) -VXSS (1 ,2,MS)-VXSS(3, 2,M5)*DZX 


1661 


VXSS(1 . 3 ,MS) =VXSS ( 1 . 3 ,MS) -VXSS (3 , 3 , MS) -DZX 


1666 


D0T=VXSS( 1 . 1 .MS) *VXSS(1 , 1 , MS) ♦ VXSS ( 1 . 3 , NS) * VXSS (1 , 2 ,MS) 


1666 


2+ VXSS (1,3, MS) *VX5S (1,3, MS) 


1667 


DOI-SQRT(DOI) 

- 

1668 


VXSS(1,1,MS)=VXSS(1,1.MS)/D0T 


1660 


VXSS ( 1 , 2 , MS) -VXSS ( 1 , 2 . MS) /DO T 


1670 


VXSS (1,3, MS) -VXSS ( 1 , 3 , MS) /DOT 

- 

1671 


VXSS (3 . 1 , NS) *VXSS (3,3, NS) *VXSS( 1 , 3 ,HS) -VXSS (3 , 3 , NS) * VXSS ( 1 , 3 , NS) 

A 

1672 


VXSS (3,3, NS) -VXSS (3 , 3 , NS) -VXSS ( 1 , 1 , NS) -VXSS (3 , 1 ,NS) -VXSS (1 , 3 , NS) 


1673 


VXSS(3 , 3 , MS) -VXSS (3 , 1 .MS) -VXSS ( 1 , 3 , NS) -VXSS (3 , 3 , NS) -VXSS (1 , 1 , NS) 

' 

1674 


VP* I TE (6,3006) 


1676 


VRITE(6,3008) 


1676 


WRITE(6,3437) 


1677 


DO 3833 HI=1 ,3 


1678 


WRITE(6,3006) 


1679 

3833 

WRIXE(6.3434) (HI,!JJ,M3,VXSS(NI.MJ,MS) .HJ-1,3) 


1680 


CO TO 3000 


1681 

Cs= = = 

: = = 


1682 

3440 

CONTINUE 


1683 


PR: COMMAND -====- 


1684 

cm 



1686 

CM) 

IPRAD= 1 NORMALIZATION FOR FAR ZONE AS FOLLOWS 


1686 

cm 



1687 

cm 

PRAD=TOTAL POWER RADIATED IN WATTS. 


1688 

cm 



1689 

cM* 

PRAD CAN ALSO BE SPECIFIED AS THE POWER INPUT IN WATTS. 


1690 

cm 



1691 

cm 

NOTE IF PRAD IS LESS THAN OR EQUAL TO i.E-30 


1602 

cm 

THAN LPRAD WILL BE SET FALSE 


1693 

cm 



1604 


LPRAD= . TRUE. 


1695 


READ (6 , *) IPRAD 


1696 


IF(IPRAD . GT . 4) STOP 


1697 


CQ TO (3444.3446,3446,3447) .IPRAD 


1698 

3444 

READ (5 , +) PRAD 


1699 


IF (PRAD . LT . 1 . IE- 30) CO TO 3442 


1600 


WRITE(6 ,3441) PRAD 


1601 

3441 

FORMAT (2H *,6X,' TOTAL POWER RADIATED IN WAITS= \E12.6 


1602 


2.T79.1H*) 

. 

1603 


GO TO 3000 


1604 

3442 

CONTINUE 


1606 


LPRAD-. FALSE. 


1606 


PRAD=0 . 


1607 


URITE(0, 3443) 


1608 

3443 

F0RMAT(2H * , 6X , ’NO POWER RADIATED IS SPECIFIED \ T79 , 1H*) 


1609 


GO TO 3000 


1610 

3446 

CONTINUE 

*** 

1611 

cm 



1612 

cm 

IPRAD = 2 =MUTUAL IKPEDANDCE CALCULATION Z12 = Z21 


1613 

c$$$ 



1614 

cm 

CIU = SOURCE TERMINAL CURRENT (REAL AND IMAGINARY) 


1616 

cm 

CI22 = RECEIVER TERMINAL CURRENT (REAL AND IMAGINARY) 


1616 

cm 



1617 


READ (6 , *) CI11.CI22 

* 

1618 


WRITE(6,4446) CIU.CI22 


1619 

4446 

FORMAT (2H SOURCE TERMINAL CURRENT= ’ , 2E12 . 6 , T79 , 1H*/ 


1620 


2,2H *,6X. 'RECEIVER TERMINAL CURRENT* * ,2E12 . 6 , T79 , 1H*) 


1621 


GO TO 3000 


1622 

3446 

CONTINUE 


1623 

C$$$ 
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1624 Cttt IPRAD « 3 "COUPLING VIA THE REACTION THEORY 

1626 Cttt THIS GIVES A MODIFIED FRII*S TRANSMISSION TYPE RESULT 

1626 C$t$ 

1627 C$$$ PRAD = POWER RADIATED BY THE SOURCE 

1628 C$$$ PRADR - POWER RADIATED BY THE RECEIVER AS IF IT WERE A SOURCE 

1620 cm 

1630 READ(6,*) PRAD, PRADR 

1631 WRITE(6,4447) PRAD, PRADR 

1632 4447 FORMAT (2H *,6X t * SOURCE POWER RADIATED* \E12 . 6 ,T70 , 1H*/ 

1633 2.2H * ,6X, 'RECEIVER POWER RADIATED- \E12.6,T70, 1H*) 

1634 GO TO 3000 

1636 3447 CONTINUE 

1636 C$M 

1637 C$$t IPRAD* 4 -COUPLING BY THE LINVILLE METHOD 

1638 C$M 

1630 cm CI11 - SOURCE TERMINAL CURRENT (REAL AND IMAGINARY) 

1640 CU$ CI22 * RECEIVER TERMINAL CURRENT (REAL AND IMAGINARY) 

1641 cm 

1642 CAM Zll * SOURCE TERMINAL IMPEDANCE (REAL AND IMAGINARY) 

1643 CM* Z22 * RECEIVER TERMINAL IMPEDANCE (REAL AND IMAGINARY) 

1644 cm 

1646 READ(6, *) CI11.CI22 

1646 WRITE(6,4445) CI11.CI22 

1647 READ(6, *) Z11.Z22 

1648 WRITE(6,4446) Z11.Z22 

1640 4446 FORMAT (2H *,6X,‘ SOURCE TERMINAL IMPEDANCE* 1 .2E12.6.T70, 1H*/ 

1660 2,2H *,6X, 'RECEIVER TERMINAL IMPEDANCE* ' .2E12.6.T70, 1H*) 

1661 GO TO 3000 

1662 C«*««* 

1663 4400 CONTINUE 

1664 C-«* RG : COMMAND «■««** 

1666 cm 

1666 Cllt MRX-NUMBER OF ANTENNA ELEMENTS. 

1667 cm 

1668 LRCVR" . TRUE. 

1660 LRMP-. FALSE. 

1660 MRX-MRX+1 

1661 MRXAT-MRAT+MRX 

1662 IF(MRXAT.GT.MRDX) WRITE(6,4404) MRXAT 

1663 4404 FORMAT ( ' ***** HUMBER OF RECEIVERS* • ,13,* PROGRAM* , 

1664 2' ABORTS SINCE MAX. RECEIVER DIMENSION IS EXCEEDED. ****♦') 

1666 IF(MRXAT.GT.MRDX) STOP 

1666 WRITE(6,4401) MRX 

1667 4401 FORMAT (2H *,6X,'THIS IS RECEIVER NO. M3,* IN THIS', 

1668 2' COMPUTATION. ' ,170, 1H*) 

1660 WRITE(6,3006) 

1670 WRITE(6,3006) 

1671 cm 

1672 Cttt XRR(N,MR)=XYZ LOCATION OF MR-TH ANTENNA ELEMENT. 

1673 Cttt 

1674 Cttt IMR(MR) -TYPE OF LINEAR ANTENNA 

1676 Cttt . LT.O: ELECTRIC LINEAR ELEMENT 

1676 Cttt . GT.O : MAGNETIC LINEAR ELEMENT 

1677 Cttt ABS(IMR)*1 : UNIFORM CURRENT DISTRIBUTION 

1678 Cttt -2: STANDARD DIPOLE CURRENT DISTRIBUTION 

1670 Cttt *3: CAVITY BACKED SLOT CURRENT DISTRIBUTION (TE01) 

1680 Cttt 

1681 Cttt HAWR (MR) -APERTURE WIDTH IN WAVELENGTHS (NOTE: IF 

1682 Cttt HAWR (MR) IS LESS THAN .1 LAMBDA, RECEIVER IS 

1683 Cttt CONSIDERED TO BE DIPOLE RECEIVER 

1684 Cttt HR (MR) -LENGTH OF LINEAR ELEMENT IN WAVELEHOTHS 

1686 Cttt 

1686 Cttt THRZ , PHRZ=ORIENTATION ANGLES USED TO DEFINE LINEAR 

1687 Cttt ELEMENT AXIS. 
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1688 

1680 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 
1600 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1700 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 
1710 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 
1720 

1730 

1731 

1732 

1733 

1734 
1736 

1736 

1737 

1738 
1730 

1740 

1741 

1742 

1743 

1744 
1746 

1746 

1747 

1748 
1740 

1760 

1761 


cm 

CU$ THRX,PHRX=ORIENTATIOH ANGLES USED TO DEFINE APERTURE 
C$$$ PLANE OR DIPOLE X-AXIS. 

cm 

C$M WMR,WPR*MAGNITUDE AND PHASE OF EXCITATION OF 
C$$$ MR-TH ELEMENT. 

cm 

MR=MRX 

MR A (1, MR) =0 

MRA(2,MR)=0 

READC5, *) (XRR(N.MR) ,N=1,3) 

READ (6,*) THRZ.PHRZ.THRX.PHRX 
READ (6,*) IMR(MR) ,KR(MR) , HAWR (MR) 

READ(6, *) WMR.VPR 

IF(IMR(MR).LT.O) VRITE(6 , 4411) IMR(MR) 

4411 FORMAT (2H * t 5X/THIS IS AN ELECTRIC RECEIVER OF TTPE ’,13 
2,T70,1HO 

IF(IMR(MR) .CE.O) WRITE(6,4412) IMR(MR) 

4412 FQRMATC2H *,6X/rHIS IS A MAQNETIC RECEIVER OF TTPE M3 
2.T70.1H*) 

VRITEC6.300Q) 

IF (IUNST. EQ.O) CO TO 4414 
UNSTS*UNIT (IUNST) 

VfR I TE (6 , 4413) HR(MR) . HAWK (MR) . LABEL (IUNST) 

4413 F0RMAT(2H * ,6X, ’RECEIVER LENGTH 3 ' ,F10.6, ' AND WIDTH*' 
2.F10.6, IX , AG.T70, 1H*) 

HR (MR) =UNSTS*UNITF*HR(MR) 

HAWR (MR) =UHSTS*UN ITF*HAWR(MR) 

IF ( IUNST. NE. 1) WRITE(6 , 3008) 

IF(IUNST.NE.l) WRITE(6, 4413) HR (MR) , HAWR (MR) , LABEL (1) 

CO TO 4416 

4414 WRITE(6,4415) HR(MR) , HAWR (MR) 

4415 F0RMAT(2H * ,6X , ’RECEIVER LENGTH 3 ’ ,F10 . 6, * AND WIDTH*’ 
2.F10.6, ’ WAVELENGTHS’ ,T79,1H*) 

4416 WRITE(6 , 3006) 

WR(MR)=WMR*CEXP(CJ*WPR*RPD) 

WRITE(6 ,4417) WMR.VPR 

4417 FORMAT (2H *,6X l i THE RECEIVER WEIGHT HAS MAGNITUDE*’ 
2.F10.6,* AND PHASE*' t F10.6 1 T79,lHO 

WRITE(6 , 3006) 

WRITE(6 , 3006) 

WRITE(6 , 4421) LABEL (I UN IT) 

4421 F0RMAT(2H *. TO , ’RECEIVER# T17 , 1 INPUT LOCATION IN \A 6 ,T 46 , 
2 ’ ACTUAL LOCATION IN METERS' ,T79, 1H*) 

WRITE(6 ,4422) 

4422 FORMAT (2H ♦ , T6 ,7( ’ - ’ ) , T16 ,27( ' - ’ ) , T46 ,27 ( ’ -• ) , 

2T70 , 1H*) 

WRITE(6 , 3006) 

DO 4424 H*1 ,3 
4424 XQ(N)=XRR(N ,MR) 

DO 4425 11=1,3 

4426 XRR(N,MR)=UNITS+(Xq(l)*VRT(l,H)*Xq(2)*VRT(2 l N) 
2+XQ(3)*VRT(3,N))+TR(N) 

WRITE(6 ,4426) MR, (XQ(N) ,11=1 .3) , (XRR(N ,MR) ,N*1,3) 

4426 FORMAT (2H *.T8, 13, T15.F8 . 3, 2( ' , ' .FS.3) 1 T44 I F8.3 I 2(' , ' ,F8.3) 
2.T79.1H*) 

TQR=THRZ*RPD 

PQR=PHRZ*RPD 

xq(i)=siN(TqR)*cos(pqR) 

XQ(2)*SIH(TQR)*SIN(PQR) 

xq(3)=cos(iqR) 

DO 4431 11*1,3 

4431 VXRR(3 ( N 1 MR)=xq(l)*VRT(l,N)+Xq(2)*VRT(2,H)^Xq(3)*VRT(3,N) 

TQR=THRX*RPD 


•►fr 
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1762 

1763 

1764 
1766 

1766 

1767 

1768 

1769 

1760 

1761 

1762 

1763 

1764 
1766 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 
1776 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 
1786 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 
1706 
1706 

1797 

1798 

1799 

1800 
1801 
1802 

1803 

1804 

1805 

1806 

1807 

1808 
1809 
1610 
1811 
1812 

1813 
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PqR«PHRX*RPD 

Xq(l)«SIN(TqR)*COS(PQR) 

xq(2)-siN(TqR)*siN(pqa) 

XQ(3)*C0S(TQR) 

DD 4432 N-1,3 

4432 VXRR(1 , N , MR) *Xq (1) *VRT ( 1 , N) +XQ (2) *VRT (2 , N) +iq (3) *VRT (3 , N) 
DZX tt VXRR(l , 1 ,MR)*VXRR(3, 1 ,MR) + VXRR(1.2,MR)*VXRR(3,2,MR) 

2+VXRR ( 1 , 3 , MR) * VXRR (3 , 3 , MR) 

IF (ABS (DZX) . GT . 0 . 1) WRITE(6,4436) 

4436 FORMAT (' +** PROGRAM ABORTS IN RECEIVER SECTION IN THAT THE’, 

2' COORDINATES ARE NOT ORTHOGONAL II! **♦') 

IF(ABS(DZX) .GT.O. 1) STOP 

VXRR ( 1 . 1 , MR) =VXRR (1 , 1 , MR) - VXRR (3 . 1 , MR) *DZX 

VXRR ( 1 , 2 . MR) *=VXRR ( 1 , 2 , MR) - VXRR (3 , 2 , MR) *DZX 

VXRR ( 1 , 3 , MR) *VXRR ( 1 , 3 , MR) - VXRR (3 , 3 , MR) *DZX 

D0T*VXRR(1, 1,MR)*VXRR(1 , i t MR)+VXRR(l,2,MR)*VXRRd ,2, MR) 

2* VXRR (1 , 3 . MR) * VIRR (1,3, MR) 

DOT=SqRT(DOT) 

VXRR ( 1 , 1 , MR) =VIRR ( 1 , 1 . MR) /DO T 
VXRR(1 ,2 ,MR)=VXRR(1 ,2,MR)/D0T 
VXRR(1 ,3,MR)*VXRR(1 ,3,MR)/D0T 

VXRR (2 , 1 , MR) «VXRR (3 , 2 , MR) ♦ VXRR (1 , 3 , MR) - VXRR (3 , 3 , MR) ♦ VXRR (1 , 2 , MR) 
VXRR(2 ,2 ,MR)*VIRR(3 ,3 ,MR) *VXRR(1 , 1 ,MR) -VXRR(3 , 1 ,MR) *VXRR(1 ,3 ,MR) 
VIRR(2 ,3,MR)=VXRR(3, 1 ,MR) *VXRR(1,2,MR)-VXRR(3,2 P MR)*VXRR(1 , 1 ,MR) 
¥RITE(6 ,3006) 

VRITEC6.3006) 

WRITE(6 , 4437) 

4437 FORMAT (2H *,6X,’THE FOLLOWING RECEIVER ALIGNMENT IS USED:’ 

2,T79 , 1H*) 

DO 4433 NI-1,3 
WRITE(6,3006) 

4433 WRITE(6 ,4434) (NI ,NJ,MR,VXRR(NI,NJ,MR) ,N>1,3) 

4434 FORMAT (2H * , IX , 3(2X , ’ VXRR( 1 , II , * , ' , II , ’ , ’ , 12 , ’ ) - ’ , F9 . 6) 

2,T79 , 1H*) 

GO TO 3QQQ 

Qxksbss 

4810 CONTINUE 

C=== RA: COMMAND ***«“ 

cm 

cm MRX= NUMBER OF ANTENNA ARRAY GROUPINGS. 

cm 

C$M MRAX=NUM3ER OF ELEMENTS PER GROUPING. 

cm 

LRCVR= . TRUE. 

LRMP=. FALSE. 

MRX*MRX*1 
READ (6,*) KRAX 
MRAT=MRAT+MRAX 
MRXAT=MRAT+MRX 

IF(MRXAT.GT.MRDX) VRITE(6 . 4404) MRXAT 
IF(MRXAT.GT.MRDX) STOP 
WRITE(6 ,4805) MR X, MR AX 

4806 FORMAT (2H *,5X,'THIS IS RECEIVER NO. *,13.* IN THIS’, 

2* COMPUTATION . ' , T70 , 1H+/2H *,6X. 'THERE ARE *, 

313.' RECEIVERS ARRAYED TOGETHER. ' ,T70,1H*) 

WRITE(6 , 3006) 

WRITE(6 , 3006) 

cm 

cm XRR(H,MA)*XYZ LOCATION OF MA-TH ANTENNA ELEMENT . 

cm 

CUt XRR(R.MR)*XYZ LOCATION OF MR-TH WEIGHTED CENTER OF THE 
CM$ ARRAY GROUPING. 

cm 

c$$$ THE ARRAY ELEMENTS ARE ASSUMED TO HAVE THE SAME LENGTH, 
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CM* WIDTH, AND ORIENTATION . ALSO, THEY ARE ASSUMED TO BE 
CUA EITHER ALL MOUNTED AND OR ALL OFF A PLATE. 

C$M IMR(MR)«TYPE OF LINEAR ANTENNA 

cm . LT . 0 : ELECTRIC LINEAR ELEMENT 

C|$$ . GT . 0 : MACNETIC LINEAR ELEMENT 

C$$$ ABS(IMR)=1 : UNIFORM CURRENT DISTRIBUTION 

C$$$ =2: STANDARD DIPOLE CURRENT DISTRIBUTION 

Cm *3: CAVITY BACKED SLOT CURRENT DISTRIBUTION (TE01) 

cm 

cm HAWK (MR) = APERTURE WIDTH IN WAVELENGTHS (NOTE: IF 
Citt HAWR(MR) IS LESS THAN .1 LAMBDA , RECEIVER IS 
CM$ CONSIDERED TO BE DIPOLE RECEIVER 
cm HR (KCl)= LENGTH OF LINEAR ELEMENT IN WAVELENGTHS 

cut 

C$$$ THRZ , PHRZ=ORIENTATION ANGLES USED TO DEFINE LINEAR 
CUt ELEMENT AXIS. 

cm 

Cm THRX,PHRX*ORIENTATION ANGLES USED TO DEFINE APERTURE 
PLANE OR DIPOLE X-AXIS. 

cm 

cm WMR , WPR*MAGNITUDE AND PHASE OF EXCITATION OF 
C$$$ MA-TH ELEMENT. 

cm 

MR=MRX 

MAI*MRDX-MRAT+1 
MAF=MAI*MRAX-1 
MRA(1 ,MR)=MAI 
MRA(2 ,MR) b MAF 
DO 4841 MA-MAI ,MAF 
4841 READ(E ,*) (XRR(N.MA) ,N=1,3) 

READ(5 /) THRZ , PHRZ , THRX , PHRX 
READ (5,0 IMR (MR), HR (MR), HA WE (MR) 

IF (IMR(MR) . LT . 0) WRITE(6 , 4411) I MR (MR) 

IF(IMR(MR) .GE.O) WRITE(6 , 4412) IMR(MR) 

VfRITE(6 , 3006) 

IF(IUNST.EQ.O) GO TO 4814 
UNSTS=UNIT (IUNST) 

WRITE(6, 4413) HR (MR) ,HAWR (MR) .LABEL (IUNST) 

HR (MR) =UNSTS*UNITF*HR(MR) 

HAtfR (MR) *UNSTS * UN I TF* H A WR (MR) 

IF ( IUNST. NE. 1) WRITE (6 ,3008) 

IF ( IUNST. NE. 1) WRITE(6 , 4413) HR (MR) .HAVR(MR) , LABEL (1) 

GO TO 4816 

4814 VR1TE(6 , 441B) HR(MR) , HAWR(MR) 

4816 WRITE(6,3006) 

WR(MR)=(1 . ,0.) 

VMRA*0. 

XRAX«0. 

XRAY*0. 

XRA2-0 . 

DO 4843 MA*MAI,MAF 
READ (5,*) WMR.WPR 
VfRITE(6 ,4817) MA, WMR.WPR 

4817 FORMAT (2H * ,5X, 'RECEIVER ’,13/ HAS MAGNITUDE- 1 
2.F10.E/ AND PHASE= * , F10 . 6 , T79 , 1HO 

W R (MA) =VMR*CEXP (C J *WPR*RPD) 

WMRA»WMRA+WMR 
XRAX=XRAX4WMRORR(l ,ma) 

XRAY=XRAY+WMR*XRR(2,MA) 

4843 XRAZ=XRAZ4V. r MR*XRR(3,MA) 

XRR ( 1 , MR) =XRAX/WMRA 
XRR(2,MR)=XRAY/WMRA 
XRR(3 , MR) =XRAZ/WMRA 
WRITE(6 , 3008) 
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WRITE (6, 3008) 

WRITE(6 ,4421) LABEL (IUN IT) 

WRITE(6.4422) 

WRITE(6 ,3006) 

DO 4824 N»l,3 
4824 Xq(N)=IRR(N,WR) 

DO 4826 N=1 ,3 

4826 XRR(N ,MR)=UNITS* (XQ(1)*VRT(1 ,N)*XQ(2)*VRT(2,N) 
2*XQ<3)*VRT(3,N))m(N) 

VRIT£(6 ,4426) MR, (XQ(N) , K*1 ,3) , (IRR(N.MR) ,N*1 , 3) 

DO 4820 MA=MAI ,MAF 
DO 4827 K*1 ,3 

4827 XQ(N) C XRR(N ,MA) 

DO 4828 N-1,3 

4828 XRR(N ,MA) “UNITS* (XQ(1)*VRT(1 I N)+XQ(2)*VRT(2,N) 

2+XQ(3)*VRT(3,N)) ♦TR(M) 

4820 WRITE(6 , 4428) MA , (Xq (N) , N=1 , 3) , (XRR(K ,MA) ,K*1, 3) 

TqR*THRZ*RPD 

Pqa-PHRZ*RPD 

xq(i)«siN(iqR)*cos(pqR) 

Xq( 2 )-SIH(TqR)* 8 IK(PqR) 

xq( 3 )*CQS(iqR) 

DO 4831 N-1.3 

4831 VXRR(3,K l MR)-Xq<l)*VRT(l,H)^Xq(2)*VRT(2,H)^Xq(3)*VRT(3,N) 
TqR*THRX*RPD 

PqR-PHRX*RPD 

Xq(l)-SIH(TqR)*COS(PQR) 

iq( 2 )«=SIK(TqR)*SINCPqR) 

XQ(3)«C0S(TQR) 

DO 4832 K*1 ,3 

4832 VXRR(l.N.MR)*Xq(l)*VRT(l,N)^iq(2)*VRT(2,N)4Xq(3)*VRT(3,N) 
DZX*VXRR(1 , 1 ,MR) *VXRR(3 , 1 ,MR) +VXRR(1 ,2,MR) * VXRR (3 ,2, MR) 

24VXRR( 1 , 3 , SOI) *VXRR(3 , 3 . MR) 

IF(ABS(DZX) .CT.O. 1) WRITE(6 , 4436) 

IF(ABSCDZX) .CT.0.1) STOP 

VIRR (l.l.MR) =VXRR ( 1 , 1 , MR) - VXRR (3 , 1 , MR) *DZX 

VXRR(l,2,MR)=VXRR(1.2,MR)-VXRR(3,2>tR)OZX 

VXRR ( 1 , 3 , MR) =VXRR (1.3, MR) -VXRR (3 , 3 , MR) *DZX 

DOT'VXRR ( 1 , 1 , MR) * VXRR ( 1 , 1 , MR) +VXRR ( 1 , 2 , MR) *VIRR( 1 , 2 , MR) 

24 VXRR ( 1 , 3 . MR) * VXRR ( 1 , 3 , MR) 

DOT°SQRT(DQT) 

VXRRC1 , 1 ,MR)*VXRR(1 . 1 ,MR)/DOT 
VXRR(1,2,MR)*=VXRR(1.2,MR)/D0T 
VXRR U . 3 , MR) * VXRR C 1 , 3 , MR) /DO T 

VXRR (2, 1 , MR) “VXRR (3 ,2, MR) *VXRR(1 ,3 ,MR)-VXRR(3,3,MR)*VXRR(1,2,MR) 
VXRR(2,2,MR)*VXRR(3,3,MR)*VXRR(1 , 1 ,MR) -VXRR(3, 1,MR)*VXRR(1»3,MR) 

VXRR(2,3,MR)“VXRR(3, 1 ,MR)*VXRR(1 ,2,MR)-VXRR(3,2,MR)*VXRR(1»1,MR) 

VRITE(6,3008) 

WRITE(6 , 3006) 

WRITE(6 ,4437) 

DO 4833 NI*1,3 
WRITE(6, 3006) 

4833 WRITE(6 ,4434) (Nl,NJ.MR,VXRR(NI,NJ.MR) ,HJ*1,3) 

CO TO 3000 

Qxesess 

3450 CONTINUE 
C==“ SM: COMMAND 

cm 

C$$$ PRAD=TOTAL POWER RADIATED IN WATTS 

cm 

LPRAD=. TRUE. 

READ (6,*) PRAD 
WRITE(6 , 3441) PRAD 
VRITE(6,3006) 


1044 

1046 

1046 

1047 

1048 
1040 
1060 
1051 
1952 

1053 

1054 
1065 

1056 

1057 
1068 
1050 
1060 
1061 
1062 
1963 

1064 

1065 

1066 

1067 

1068 
1069 
1970 
1071 
1972 

1073 

1074 
1076 
1076 

1977 

1978 

1079 

1080 
1081 
1082 

1983 

1984 
1986 

1986 

1987 
1088 
1089 
1990 
1001 
1902 
1003 
1094 

1005 

1006 
1097 
1008 
1000 

2000 

2001 

2002 

2003 

2004 

2005 

2006 
2007 


CM! 

CM! MSX»NUMBER OF ANTENNA SEGMENTS 

CM! 

LSMP* . TRUE. 

READ (5,*) MSX 

IF(MSX.GT.MSDX) WRITE(6,3477) MSX 
3477 FORMAT ( ' ***** NUMBER OF SEGMENTS 2 * , 13, 

2’ PROGRAM ABORTS SINCE MAX. SOURCE DIMENSION' 

3/ IS EXCEEDED. ***♦*') 

IF(MSX.CT.MSDX) STOP 
WRITE(6 , 3451) MSX 

3451 FORMAT (2H ♦.BX,' THERE ARE ',13, ' SEGMENTS IN THIS’, 

2* COMPUTATION.', T79.1H*) 

WRITE(6,3006) 

WRITE(6,3006) 

CM! 

CM! XS(MS,N)=XYZ LOCATION OF MS-TH ANTENNA SEGMENT 

CM! 

CM! IMS (MS) — 1=ELECTRIC LINEAR ELEMENT WITH A UNIFORM DISTRIBUTION 
CM! 

CM! HS (MS) K LENGTH OF LINEAR ELEMENT 

CM! 

CM! THSZ ,PHSZ*ORIENTATION ANGLES USED TO DEFINE 
CM! LINEAR ELEMENT AXIS. 

CM! 

CM! WMS, WPS 3 REAL AND IMAGINARY CURRENT WEIGHT. 

CM! 

WRITE(6 , 3468) LABEL(IUNIT) 

3458 FORMAT (2H * ,T7, 'MS' ,T13, *HS: ' , A6 , T23 , ' HS : METERS ’ , 

2T41, 'INPUT: THS.PHS’ ,T60, 'ACTUAL: THS.PHS’ ,T70,1H*) 

WRITE(0 , 3459) 

3450 FORMAT (2H * , T6 , 3( ' - ,T12,20('- ' ) ,T40, 16( ' -* ) ,T59, 

217( ’ - ' ) , T79 , 1H*) 

WRITE(6,3006) 

DO 3463 MS=1 ,MSX 

READ(5, ♦) (XSS(N ,MS) ,N=1 ,3) ,HS(MS) , THSZ.PHSZ 

MSA(1 ,MS)=0 

MSA (2, MS) =0 

IMS (MS) — 1 

HAWS (MS) =0 . 

HSQ=HS(MS) 

HS (MS) =UNITS*HSq 
TQ=90. -THSZ 
PQ=PHSZ 

Xq(l)*SIN(TQ*RPD)*COS(Pq*RPD) 

Xq(2)=SIN(Tq*RPD)*SIN(Pq*RPD) 

xq(3)=cos(rq*RPD) 

DO 3481 N-1,3 

3481 XqR(N)=Xq(l)*VRT(l,N)+Xq(2)*VRT(2,N)*Xq(3)*VRT(3,N) 

THSZ=DPR*BTAN2(SqRT(xqR(l)*XqR(l)+XqR(2)*XqR(2)),XqR(3)) 
PHSZ=DPR*BTAH2(XqR(2) ,XqR(l)) 

WRITE(6 , 3464) MS , HSq , HS (MS) , Tq , Pq , THSZ , PHSZ 
3464 FORMAT (2H * , T6 , 13 , 3X , 2(2X,F8 . 4) ,6X ,2(2X,F8. 3 , ’ , * ,F8.3) 
2.T79.1H*) 

DO 3484 N=1 ,3 
3484 VXSS(3 ,N ,MS) 2 XqR(N) 

VXSS(1 , 1 ,MS)=COS(THSZ*RPD) *COS(PHSZ*RPD) 

VXSS(1 , 2 ,MS)=COS(THSZ*RPD) *SIN (PHSZ*RPD) 

VXSS(l ,3,MS)--SIN(THSZ*RPD) 

VXSS(2, 1 ,MS)=-SIN(PHSZ*RPD) 

VXSS (2,2, MS) *COS (PHSZ+RPD) 

VXSS(2,3,MS)=0 . 

3463 CONTINUE 

WRITE(6,3006) 
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¥RITE(6,300Q) 

WRITE (6, 3006) 

WRITE(6,3454) 

3464 FORMAT (2H *, T31 , ' SEGMENT COORDINATES 1 . T79, '** ) 

WRITE(6 ,3006) 

WRITE(6,3006) 

WRITE(6 , 3456) LABEL (IUN IT) 

3468 FORMAT (2H * ,T7, 'MS' t T14 , * INPUT LOCATION IN \A6, 

2T43,' ACTUAL LOCATION IN METERS' ,T79, **') 

WRITE(6,3457) 

3457 FORMAT (2H * 1 T6 l 3( , - , > .TlS.QfiC 1 - 1 ) l T42 l 27(•- , ) ( T79, '**) 

WRITE(6 ,3006) 

DO 3473 MS*1,KSX 
DO 3474 N=1 ,3 
3474 iq(N) s XSS(N,MS) 

DO 3476 N*1 ,3 

3476 ISS(H,MS)=UNITS*(Xq(i)*VRT(l,N)*iqC2)*VRT(2,N) 

2+Xq(3) *VRT(3,N))+TR(N) 

WRITE(6,3476) MS, (Xq(N) ,N-1,3) , (XSS(N,MS) ,N-1,3) 

3476 FORMAT (2H * ,T6, I3,T13,F8.3,2( f . ’ ,F8.3) ,T42,F8.3, 

22( ' , ' ,F8 .3) ,T7D, 1H*) 

3473 CONTINUE 

WRITEC6.3006) 

WRITE(8 ,3006) 

WRITE(6 ,3485) 

3485 FORMAT (2H * ,T33, 'CURRENT WEICHTS' ,T79, 1H* , /2H * ,T7 , *MS\T18, 
2’REAL* ,T31, 'IMAG. ' .146, 'MAO. * ,T67 t 'PHASE' , T79. 1H*) 

WRITE(6 ,3486) 

3488 FORMAT (2H *, T6 , 3( '-’), T17 ,6 ('-’), T30 ,7( '-'), T4E ,6( '-') , 

2T68 ,7( ' - ’ ) , T79, 1H*) 

DO 3465 MS-1,MSX 
READ(6, *) VMS, WPS 
WS (MS) =CMPLX (VMS , WPS) 

VMM=BABS (CMP LX (VMS . WPS) ) 

WPP=DPR*BTAN2 (WPS , VMS) 

WRITE(6 ,3466) MS , VMS , VPS , VMM , WPP 

3466 FORMAT (2H * , T6. I3.BX ,E11 .4 ,2X ,E11 . 4 ,4X,E11 .4 ,2X,F8 .3,170, 1H*) 
3466 CONTINUE 

WRITE(6 ,3006) 

CO TO 3000 

Ccsessss 

4460 CONTINUE 
C— RM; COMMAND 

cut 

CAM PRADR*TOTAL POWER RADIATED IN WATTS 

ctti 

READ (6,*) PRADR 
WRITE(6 , 3441) PRADR 
WRITE(6 , 3006) 

cut 

CtU MRX«HVMBER OF ANTENNA SEGMENTS 

cm 

LRCVR= . TRUE. 

LRMP* . TRUE. 

READ(6, *) MRX 

IF(MRX . GT.MRDX) VRITE(6,4477) MRX 
4477 FORMAT (' ***** NUMBER OF SEGMENTS* *,13, 

2' PROGRAM ABORTS SINCE MAX. RECEIVER DIMENSION' 

3,* IS EXCEEDED. *♦***•) 

IF (MRX. GT.MRDX) STOP 
VRITE(6 , 3451) MRX 
WRITE(6,3008) 

WRITE(6,3008) 

cm 



2072 

2073 

2074 
207B 

2076 

2077 

2078 
2070 
2080 
2081 
2082 

2083 

2084 
2086 
2086 

2087 

2088 
2080 
2000 
2001 

2092 

2093 

2094 
2096 

2096 

2097 

2098 

2099 

2100 
2101 
2102 

2103 

2104 
2106 
2108 

2107 

2108 

2109 

2110 
2111 
2112 
3113 
2114 
2116 
2116 

2117 

2118 

2119 

2120 
2121 
2122 

2123 

2124 
2126 
2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 
2136 


C$$$ m(N,MR)-XTZ LOCATION OF MR-TH ANTENNA SEGMENT 

cm 

C$$$ I MR (MR) =' l c ELECTRIC LINEAR ELEMENT WITH A UNIFORM DISTRIBUTION 

cm 

CUt HR(MR)*LENCTH OF LINEAR ELEMENT 

cm 

cm THRZ,PHRZ=ORIENTATION ANGLES USED TO DEFINE 
CU$ LINEAR ELEMENT AXIS. 

cm 

Cm WMR,Y7PR*REAL AND IMAGINARY CURRENT WEIGHT. 

cm 

WRITE(8 ,4468) LABEL(IUNIT) 

4468 FORMAT (2H * ,T7 , 'MR' , T13 , 'HR: ' , A6, T23, 'HR: METERS' , 

2T41 , * INPUT : THE t PHR*.T60 t * ACTUAL: THR.PHR' , T70 f 1H*) 

WRITE(6 ,3469) 

4469 FORMAT (2H *,76,30-’) ,T12,20O-’) ,T40, ICO-') ,189, 

217 (*-'), T79, 1H*) 

WRITE(6,3008) 

DO 4463 MR=1 ,MRX 

READ(6 , *) (XRR(H ,MR) ,11-1 , 3) , HR (MR) , THRZ , PHRZ 

MRA(1 ,MR)-0 

MRA(2,MR)=0 

XMR(MR) — 1 

HAVfR(MR)=0 . 

HRQ=HR(MR) 

HR(MR)*UHITS*HRQ 
TQ=90 . -THRZ 
PQ=PHRZ 

XQ(1)=SIN(TQ*RPD)*C0S(PQ*RPD) 

XQ (2) s SIN (TQ*RPD) *SIll (PQ *RPD) 

XQ (3)=C0S(TQ*RPD) 

DO 4481 N = 1 , 3 

4481 XQR(M)=XQ(1) *VRT(1 , N)+XQ(2) *VRT(2,N) +XQ (3) *VRT(3 ,N) 

THRZ=DPR*BTAN2(SQRT(XQR(l)*XqR(l)+XQR(2)+XQR(2)) , XQR(3)) 
PHRZ=DPR*BTAN2(XQR (2) , XQR(l)) 

WRITE(6 ,3464) MR.HRQ ,HR(MR) , IQ ,Pq , THRZ ,PKRZ 
DO 4484 N = 1 , 3 
4484 VXRR(3,N,MR)=xqR(N) 

VXRR ( 1 , 1 , MR) =CDS (THRZ+RPD) *COS (PHRZ*RPD) 

VXRR(1 ,2 ,MR) =COS (THRZ* RPD )* SIN (PHRZ*RPD) 

VXRR (1 , 3 ,MR)=-SIN (THRZ*RPD) 

VXRR (2 , 1 ,MR)--SIN (PHRZ*RPD) 

VXRR (2 , 2 , MR) =COS (PHRZ*RPD) 

VXRR (2, 3, NCI) =0. 

4463 CONTINUE 

WRITE(6,3008) 

WRITE(6 , 3006) 

WRITE(6 , 3006) 

WRITE(6 , 3464) 

3 WRITE(6 , 3006) 

WRITE(6 , 3006) 

WRITECfi ,4456) LABEL(IUNIT) 

4466 FORMAT (2H * ,T7, 'MR* ,T14 ,’ INPUT LOCATION IN \A6, 

2T43 , ’ACTUAL LOCATION IN METERS 1 , T79 , ‘ ) 

WRITE(6 ,3467) 

WRITE(6 , 3006) 

DO 4473 MR=1 ,MRX 
DO 4474 N-l ,3 
4474 XQ(H)=XRR(N,MR) 

DO 4476 H=1 ,3 

4476 XRR(N , MR) -UNITS* (XQ (1) *VRT (1 ,N)+XQ (2) *VRT (2 , N) 
2 + XQ(3)*VRT(3,N))+TR(N) 

WRITE(6 , 3476) MR. (XQ(II) , N=1 , 3) . (XRR(N ,MR) , N=1 , 3) 

4473 CONTINUE 
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2136 


VRITE(6,3006) 

2137 


«tIIE(6,300e) 

2138 


WRITEC6 ,3486) 

2130 


niTE(e,3486) 

2140 


DO 4466 MR*1,MRX 

2141 


READ(6,0 VMR.WPR 

2142 


WR (MR) «CMPLX (WMR , WPR) 

2143 


WMM=BABS (CMPIX (NMR.WPR)) 

2144 


RPP=DPR*BTAN2 (WPR , WMR) 

2146 


WRITE(6,3466) MR.WMR, WPR, VMM.WPP 

2146 

4466 

CONTINUE 

2147 


WRITE(6,3006) 

2148 


GO TO 3000 

2140 

Qccxsxs 

2160 

3490 

CONTINUE 

2161 

(|hsb 

NS: COMMAND «**=«» 

2162 

c*M 


2163 

cm 

INITIALIZE SOimCE DATA. 

2164 

cm 


2165 


LSMP=. FALSE. 

2166 


MSX-0 

2167 


MSAT*0 

2168 


VRITE(6,3491) 

2160 

3401 

FORMAT (2H *,6X, ' THE SOURCE DATA IS INITIALIZED. *,170. 

2160 


2,2H * ,6X , ' NO SOURCES ARE PRESENTLY IN THE PROBLEM. 1 

2161 


3,T70,1H‘) 

2162 


GO TO 3000 

2163 


:ts 

2164 

3406 

CONTINUE 

2166 

Qbsc 

NR: COMMAND «=«= 

2166 

cm 


2167 

cm 

INITIALIZE RECEIVER DATA 

2168 

cm 


2160 


LRCVR=. FALSE. 

2170 


LRMP=. FALSE. 

2171 


MRX=0 

2172 


VRITE(6,3496) 

2173 

3406 

FORMAT (2H ♦ ( 6X,’ THE RECEIVER DATA IS INITIALIZED. ' 

2174 


2,TT0.1H«/2H *.6X, 1 BO RECEIVERS ARE PRESEN TLT IN THE’ 

2176 


3/ PROBLEM. ' , T79 , 1H*) 

2176 


CO TO 3000 

2177 



2178 

3600 

CONTINUE 

2170 


LP: COMMAND ====== 

2180 

cm 


2181 

cm 

LVRITE-TRUE IF LINE PRINTER OUTPUT OF DATA IS DESIRED 

2182 

cm 


2183 


READ(6 , *) L WRITE 

2184 


IF( . NOT.LWRITE) WRITE(6 ,6606) 

2186 

6606 

FORMAT (2H *,5X,’N0 LINE PRINTER OUTPUT’ f T79, 1H*) 

2186 


IF( . NOT. LWRITE) GO TO 3000 

2187 


WRITE(6 ,3601) 

2188 

3601 

FORMAT (2H *,6X,* DATA WILL BE OUTPUT ON LINE PRINTER 1 

2180 


2T70,1HO 

2100 


CO TO 3000 

2101 


2102 

3660 

CONTINUE 

2103 

c«= 

VP: COMMAND ====== 

2104 

cm 


2106 

cm 

VOLUMETRIC DUMP FOR PLOTS 

2196 

cm 


2197 


READ(6 , 0 LVPLT 

2108 


IF(.NOI.LVPLI) VRITE(6,6606) 

2100 


IF(. ROT. LVPLT) CO TO 3000 
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CD TO 3851 


2200 

2201 C» 

2202 3000 CONTINUE 

2203 C«» PP: COWAND 

2204 Ctlt 

2205 0*$$ LPLT-TRUE IF PEN PLOTTER OUTPUT IB DESIRED 

2200 CM* 

2207 READ (5 , *) LPLT 

2208 IF( .HOT. LPLT) WRITER, 6608) 

2209 6608 F0RMAT(2H *,5X/N0 PEN PLOT DESIRED’ .T79.1H*) 

2210 IF(. NOT. LPLT) GO TO 3000 

2211 cm 

2212 Cm IF LPLT=TRUE READ III DIMENSIONS 

2213 cm 

2214 C*** LPPREC = TRUE IMPLIES RECTANCULAR PLOT 

2215 CUt PPXL = LENGTH OF X-AXIS (ANCLE AXIS) 

2216 CM* PPYL = LENGTH OF Y-AXIS (DB AXIS) 

2217 C$$* 

2218 CM* LPPREC * FALSE IMPLIES POLAR PLOT 

2219 CM* PPXL = ANGULAR POSITION OF X-AXIS 

2220 Cm PPYL = RADIUS OF CRID 

2221 CM* 

2222 3651 READ (5,*) LPPREC, PPXL. PPYL 

2223 CM* 

2224 CM* PPXB = BEGINNING VALUE OF X-AXIS 

2225 CM* PPXE = END VALUE OF X-AXIS 

2226 CM* PPXS * STEP SIZE OF X-AXIS GRID MARKS 

2227 CAM 

2228 READ (6,0 PPXB , PPXE, PPXS 

2229 CAAA 

2230 CAA* PPYB = BEGINNING VALUE OF Y-AXIS 

2231 CAAA PPYE = END VALUE OF Y-AXIS 

2232 CAAA PPYS = STEP SIZE OF T-AXIS GRID MARKS 

2233 CAAA 

2234 READCB,*) PPYB .PPYE.PPYS 

2235 WRITE(G ,3602) 

2236 3602 FORMAT (2H * ,5X, 'DATA WILL BE OUTPUT FOR A PLOT II! ' 

2237 2.T79.1HO 

2238 WRITE(6 , 3006) 

2239 WRITE(6 , 3603) LPPREC, PPXL .PPYL 

2240 3603 FORMAT (2H *,5X,' LPPREC= ' ,L2. 5X , ’PPXL= '.FIO.B.BX. 

2241 2 'PPYL- 1 .FIO.B.TTQ.IH*) 

2242 WRITE(6 , 3804) PPXB .PPXE, PPXS 

2243 3604 FORMAT (2H *,6X,’ PPX B= ’ .F10.B.5X , 'PPXE» ’.FIO.B.BX, 

2244 2’PPXS= * .F10.6.T79.1H*) 

2245 WRITE(6 , 3606) PPYB .PPYE.PPYS 

2246 3605 FORMAT (2H *,5X,’ PPYB= ’ ,F10. 6 ,5X , ’PPYE* ’.FIO.B.BX, 

2247 2‘PPYS= ’ ,F10. 6.T79.1H*) 

2248 IF(LPLT) GO TQ 3000 

2249 WRITE(6 , 3006) 

2250 CAAA 

2251 CAAA IVTYP=TYPE OF RESULTS OUTPUT 

2252 CAAA IVTYP=1 ELECTRIC FIELD OUTPUT 

2253 CAA* IVTYP=2 MAGNETIC FIELD OUTPUT 

2254 CAM IVTYP=3 BOTH ELECTRIC AND MAGNETIC FIELDS OUTPUT 

2266 CAAA COUPLING IS OUTPUT IF RECEIVER IS DEFINED FDR ANY IVITP 

2286 CAM 

2267 CAAA IVPOL-PQLARIZATION OF RESULTS OUTPUT 

2258 CIA* IVP0L=1 ,2,3 THEN R.THETA.PHI OR X.Y.Z RESPECTIVELY IS OUTPUT 

2259 CAA* IVPOL-4 THEN R-THETA OR X-Y ARE OUTPUT 

2260 CAA* IVPDL=5 THEN R-PHI OR X-Z ARE OUTPUT 

2261 CAA* IVP0L=6 THEN THETA-PHI OR Y-Z ARE OUTPUT 

2262 CM A IVP0L=7 THEN R, THETA AND PHI OR X, Y AND Z ARE OUTPUT 

2263 CAA* COUPLING HAS NO POLARIZATION 
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2264 

cm 



2265 


READ(6,*) IVTTP.IVPOL 


2266 


VRITE(6,365E) IVITP.IVPOL 


2267 

3655 

FORMAT (2H ».6X.* IVTTP- "ia, 1 IVPOL* • .I2.T79.1H*) 


’ 2268 


CO TO 3000 


2269 




2270 

3700 

CONTINUE 


2271 


GP: COMMAND *«**« 


2272 

cm 


-■ 

2273 

cm 

INFINITE CROUND PUNE EFFECT INCLUDED. 


2274 

cm 



2275 


L0RND*.TRUE. 

m 

% 

2276 


DO 3702 N*l,3 


2277 


XX<N . 1 .MPDX) «1 .EB* (VRT (1 ,N) *VRT (2 ,N)) *TR(N) 


2278 


XX (H . 2 . MPDX) -1 . EB* (-VRI ( 1 . N) *VRI (2 . N) ) *TR(N) 


2270 


XX (N , 3 ,MPDI)«1 . E6* (-VRT(1 , N) -VRI (2 , N) ) *TR(N) 


2280 

3702 

XX(N.4,MPDX)«l.E6*(VRT(l,N)-VRT(2,N))*TR(N) 


2281 

c$*$ 



2282 

cm 

LSLAB* 0 IMPLIES METAL PLATE, AND 


2283 

CM$ 

*-3 IMPLIES DIELECTRIC HALF SPACE 


2284 

cm 



2285 

cm 

NOTE: IF DIELECTRIC COVERED, ONE MUST READ DIELECTRIC DATA. 


2286 

cm 



2287 


READ(6,*) LSUB(MPDX) 


2288 


IF (LSLAB (MPDX) . El) . 0) VRITE(6,3706) 


2280 

3706 

FORMAT (2H *,BX, ’PERFECTLT CONDUCTING ’.179, 1H») 


2290 


IF (LSLAB (MPDX). NE.O) WRITE(8.3707) 

V* 

2201 

3707 

FORMAT (2H *,6X, 'SEMI- INFINITELY THICK DIELECTRIC 1 .170. 1H») 


2202 


WlITE(e.3701) 


2203 

3701 

FORMAT (2H *,GX, 'INFINITE CROUND PLANE INSERTED IN 1 , 


2204 


2 1 STRUCTURE lir.T79.lH*) 


2205 


WRITE(«.3008) 


2206 


VfRITE(6 ,3703) (TR(N) ,N*1 ,3) 


2207 

3703 

FORMAT (2H *,6X,’THE ORIGIN IS AT ' .F12.6, ' , ' ,F12.6 


2208 


2, , I \F12.6 1 * METERS* ,T70,1H*) 


2200 


WRITE(6,3006) 


2300 


VfiUTE(6,3704) (VRT(3 ,N) ,N*1 .3) 


2301 

3704 

FORMAT (2H * f 6X, , THE NORMAL IS ’ ,F12.6, ' , ’ ,F12.6, V 


2302 


2.F12.6.T70, 1H*) 


2303 


IF (LSLAB (MPDX) .EQ.O) GO TO 3000 


2304 


NSLAB(1)*1 


2305 


DSLAB ( 1 , MPDX) *0 . 


2306 


LSLAB (MPDX) = -3 


2307 

c$$$ 



2308 

cm 

ERSLAB(1 ,MPDX)=RELATIVE DIELECTRIC CONSTANT 


2300 

cm 



2310 

cm 

TESLAB ( 1 , MPDX) “DIELECTRIC LOSS TANGENT 


2311 

cm 



2312 

cm 

URSLAB(1 , MPDX) “RELATIVE PERMEABILITY CONSTANT 


2313 

cm 



2314 

cm 

TMSLAB (1 , MPDX) “PERMEABILITY LOSS TANGENT 


2315 

cm 



2316 


READ(6,*) ERSLAB (1, MPDX) .TESLAB (1, MPDX) 


2317 


2 , URSLAB ( 1 , MPDX ) , TMSLAB ( 1 , MPDX) 


2318 


WRITE(6,3006) 


2310 


WRITE(6 , 3708) 


2320 

3708 

FORMAT (2H *,6X, ’DIELECTRIC’ ,3X, ’LOSS’ ,4X, 

i 

2321 


2’PERMITIVITY’ ,3X, 'LOSS* .T70.1H+,/, 


2322 


32H * , 6X , • CONSTANT * , 3X , ' TANGENT ' , 


2323 


44X , ’ CONSTANT ’ , 3X , * TANGENT ’ , T70 , 1H+ , / , 

| 

2324 


52H * ,6X, * * , 2X , ' ’, 


2325 


62X, ’ 1 ,2X , * ,T79 , 1H*) 

w» 

2326 


WRITE(6 , 3700) ERSLAB ( 1 , MPDX) , TESLAB ( 1 , MPDX) 

* 

2327 


2 , URSLAB ( 1 , MPDX ) , TMSLAB ( 1 , MPDX) 
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2328 

3709 

FDRMAT(2H * . 6X , F10 . 4 ,2X ,F7 . 4 ,2X,F11 . 4 ,2X , 



2329 


2F7.4 ,T79, 1H*) 



2330 


GO TO 3000 



2331 

Csrei 




2332 

3750 

CONTINUE 



2333 

C c " 

KG: COMMAND ===-== 



2334 

CM) 




2336 

cm 

INITIALIZE GROUND PLANE DATA. 

- 

W^| 

2336 

cm 



i ' 

2337 


LCRND=. FALSE. 



2338 


VTRITE(6 , 3751) 



2339 

3751 

F0PJ>IAT(2H *.EX,' GftOBHD PLA11E DATA IS IHIIIALIZED . ’.I7B.1H*/ 


• 

2340 


2 , 2H + ,6X , ' NO GROUND PLANE IS PRESENTLY IN THE PROBLEM. 1 



2341 


3, T79 , 1H*) 



2342 


CO TO 3000 



2343 





2344 

3900 

CONTINUE 



2346 

C*=*= 

RT : COMMAND 


\ 

2346 

cm 




2347 

cm 

TR(N)«LINEAR TRANSLATION OF COORDINATES FROM THE FIXED 



2348 

cm 

COORDINATES WHICH IS ORIGINALLY SET UP BY OPERATOR. 



2349 

cm 




2350 


READCB,*) (TR(N) ,11*1,3) 



2361 


VRITE(6 , 3901) LABEL(IUNIT) , (TR(N) ,N*i,3) 



2352 

3901 

F0RMAT(2H *,5X, ’TRANSLATION IN \A6,': TR(1) = ' ,F8.3, 



2353 


2 1 TR(2)=* , F8 . 3 , * TR(3)=' ,F8 .3. T79 , 1H+) 



2354 


DO 3920 M = 1 , 3 



2355 

3920 

TR(H)=TR(N) ‘UNITS 



2366 


tfRITE(6 , 3008) 



2357 


IFdUNII.NE. 1) KRITE(6,3901) LABEL(l) , (TR(N) ,11=1,3) 


u, 

2358 


IF(IUNIT.NE.l) WRITE(6 , 3006) 



2359 


WRITE(6 , 3006) 



2360 

c$$$ 




2361 

cm 

THZP ,PHZP= ORIENTATION OF THE VRT(3,N) AXIS RELATIVE TO THE 



2362 

c$$$ 

FIXED COORDINATE SYSTEM. 



2363 

cm 




2364 

cm 

THXP.PHXP-ORIENTATION OF THE VRTCl.N) AXIS RELATIVE TO THE 



2366 

cm 

FIXED COORDINATE SYSTEM. 



2366 

C)t$ 




2367 


READCB, 0 THZP ,PHZP, THXP,PHXP 



2368 


VRT(3 , 1)*SIM (THZP*RPD) *COS(PHZP*RPD) 



2369 


VRT (3, 2)* s SIN (THZP*RPD) *SIN (PHZP*RPD) 



2370 


VRT(3 , 3) =COS (THZP*RPD) 



2371 


VRT(1 , 1) =SIN (THXP*RPD) *COS(PHXP*RPD) 



2372 


VRT(1 ,2)=SIN(THXP*RPD) *SIN (PHXP*RPD) 



2373 


VRT(1 , 3) =COS (THXP*RPD) 



2374 

C! ! ! 

INSURE VRTCl.N) IS PERPENDICULAR TO VRT(3,N) 



2375 


DZX=VRT (3,1) *VRT(l , 1) + VRT (3 , 2) *VRT(1 ,2) +VRTC3, 3) *VRT(1 , 3) 



2376 


IF (ABS (DZX).GT.O.l) tfRITE(6 , 3903) 



2377 

3903 

FORMAT ( ’ *** PROGRAM ABORTS IN ROTATE SECTION IN THAT THE 1 , 



2378 


2 1 COORDINATES ARE NOT ORTHOGONAL!!! ***’) 



2379 


IF(ABS(DZX) .GT.0.1) STOP 



2380 


VRTCl , 1) =VRT (1 , 1) -VRT (3 , 1) *DZX 



2381 


VRT(1 , 2)=VRT(1 ,2) -VRT (3 ,2) *DZX 



2382 


VRT(1 ,3)=VRT(1,3)-VRT(3,3)*DZX 



2383 


DOT=VRT (1,1)*VRT(1, 1 ) VRT (1,2) * VRT (1 ,2) -»VRT (1 ,3) *VRT(1 , 3) 



2384 


DOT=SqRT(DOT) 



2386 


VRT(1 , 1)-VRT(1 , O/DOT 



2356 


VRTCl, 2)=VRT(1,2)/D0T 


% 

2387 


VRT(1 ,3)=VRT(1,3)/D0T 



2388 


VRT (2, 1)=VRT(3,2)*VRT(1 ,3) -VRT (3 ,3)* VRTCl ,2) 



2389 


VRT (2,2) =VRT (3 , 3) *VRT (1 , 1)-VRT (3 , 1) *VRT(1 ,3) 


* 

2390 


VRT (2,3) =VRT (3 , 1) *VRT(l ,2) -VRT (3 , 2) * VRTCl , 1) 



2391 


WRITE(6 , 3931) 
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2302 

3031 

FORMAT (2H * , EX , ‘ THE FOLLOWING ROTATIONS ARE USED FOR ALL', 

2303 


2' SUBSEQUENT INPUTS: ‘ .T70.1H*) 

2304 


DO 3932 HI-1,3 

2308 


WRITE(6,3006) 

2300 

3032 

WRITER , 3933) (NI , H J , VRT (HI , N J) , NJ-1 , 3) 

2307 

3033 

FORMAT (2H *,1X,3(2X, •VRTC.Il, ’ , 1 ,11. •)*' ,F9.B) .T79.1H*) 

2308 


GO TO 3000 

2300 


XX 

2400 

4000 

CONTINUE 

2401 

c*== 

CC: AND CC: COMMAND 

2402 

cm 


2403 

cm 

CYLINDER GEOMETRY INPUT 

2404 

cm 


2405 


LCTL* . TRUE . 

2406 


MCX=MCX*1 

2407 


MC*MCX 

2408 


IF(MCX.GT.MCDX) VRITE(6 ,6311) MCX 

2400 

0311 

FORMAT (* ***** NUMBER OF CYLINDERS* 1 ,13. 'PROGRAM* , 

2410 


2’ ABORTS SINCE MAX. CTLINDER DIMENSION IS EXCEEDED. ***** 

2411 


IF(MCX.CT.MCDX) STOP 

2412 

cm 


2413 

cm 

XCL(N,MC)«XYZ LOCATION OF THE ORIGIN OF THE MC-TH CTLINDER 

2414 

cm 


2415 


READ(6,*) (XCL(N ,MC) ,N*1 ,3) 

2410 


DO 6301 N-1,3 

2417 

0301 

XQ(N)=XCL(N,MC) 

2418 


DO 6302 H-1.3 

2410 

6302 

XCL(N,MC)*UNITS* (XQ (1) *VRT(1 t N) *XQ(2) *VRT(2.N) 

2420 


2*Xq(3)*VRT(3,N))*TR(N) 

2421 


WRITE(6,6308) LABEL (IUN IT) 

2422 

0308 

FORMAT (2H *, T6 . ’CYLINDER# ', T1 7, • INPUT LOCATION IN ' ,A6 

2423 


2,146, 'ACTUAL LOCATION IN METERS' .T70.1H*) 

2424 


WRITE(6,3422) 

2425 


WRITE(6 ,3006) 

2426 


VRITE(6,3426) MC, (Xq(N) ,N=1,3) , (XCL(N,MC) ,N«1,3) 

2427 


VRITE(6,3006) 

2428 


VRITE(6 , 3006) 

2420 

c$$$ 


2430 

cm 

TCLZ,PCLZ*ORIENTATION OF THE CYLINDER AXIS 

2431 

cm 


2432 

cm 

TCLX ,PCLX=ORIENTATION OF THE CYLINDER'S X-AXIS 

2433 

cm 


2434 


READ(5, *) TCLZ ,PCLZ . TCLX , PCLX 

2435 


XQ(1)=SIH(TCLZ*RPD)*C0S(PCLZ*RPD) 

2436 


XQ (2) *SIN (TCLZ*RPD) *SIN (PCLZ*RPD) 

2437 


Xq(3)«C0S(TCLZ*RPD) 

2438 


DO 6303 N*l,3 

2430 

6303 

VCL(3 t N,MC)*iq (1) *VRT(1 ,N)*Xq(2)*VRT(2 t N)*Xq(3)*VRT(3,N) 

2440 


xq (1)*SIN (TCLX*RPD) *COS(PCLX*RPD) 

2441 


XQ (2) *SIH (TCLX*RPD) *SIN (PCLX*RPD) 

2442 


Xq(3)=C0S(TCLX*RPD) 

2443 


DO 6304 N=1 ,3 

2444 

6304 

VCL(l.N l MC)-Xq(l)*VRT(l l N)*XQ(2)*VRT(2,N)*XQ(3)*VRT(3 i N) 

2445 


DZX =VCL ( 1 , 1 , MC) * VCL (3 , 1 ,MC) * VCL (1,2, MC) *VCL (3,2, MC) 

2446 


2*VCL(1 ,3,MC) *VCL(3,3 ,MC) 

2447 


IF(ABS(DZX) .GT.0.1) VRITE(6,6305) 

2446 

6305 

FORMATC *** PROGRAM ABORTS THE COORDINATES ARE NOT', 

2440 


2' ORTHOGONAL!!! ***') 

2450 


IF(ABSCDZX). GT.0.1) STOP 

2451 


VCL(1 , 1 ,MC)*VCL(l , 1 ,MC)-VCL(3 , 1,MC) *DZX 

2452 


VCL ( 1 , 2 , MC) *VCL ( 1 , 2 . MC) -VCL (3,2, MC) *DZX 

2453 


VCL(1 ,3,MC)=VCL(1 ,3,MC)-VCL(3,3,NC)*DZX 

2454 


D0T=VCL(1 , 1 ,MC)*VCL(1 , 1 ,MC) +VCL(1 ,2,MC) *VCL(1 ,2,MC) 

2455 


2+VCL(l ,3,MC) *VCL(1 ,3,MC) 



2466 

2467 
2458 
2469 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 
2476 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 
2601 
2602 
2503 

2604 

2605 
2508 

2607 

2608 
2609 

2510 

2511 

2512 

2513 
2614 
2515 
2616 

2617 

2618 
2619 


D0T=SQRT(D0I) 

VCL(1 , 1 ,MC)=VCL(1 , 1 ,MC)/D0T 
VCL(1 , 2 ,MC)=VCL(1 ,2,MC)/D0T 
VCL(1 ,3,MC)=VCL(1 , 3,MC)/D0T 

VCL (2 , 1 , MC) =VCL (3 , 2 , MC) *VCL ( 1 , 3 , MC) -VCL (3 , 3 , MC) *VCL (1 , 2 , MC) 
VCL(2 , 2 ,MC)=VCL(3,3 ,MC) *VCL(1 , 1 ,MC)-VCL(3 ( 1 ,MC)*VCL(i ,3,MC) 
VCL(2,3 I MC)=VCL(3 , 1 ,MC) *VCL(1 ,2 ,MC) -VCL(3 ,2 ,MC) *VCL(1 , 1,MC) 
WRITE(6,6309) 

6309 FORMA T(2H *,6X/THE FOLLOWING CYLINDER ALIGNMENT 18 USED:* 
2.T79.1H*) 

DO 6303 NI*1 ,3 
WRITE(6 ,3000) 

6306 WR.ITE(6 ,6307) (1JI ,N J , VCL(HI ,N J ,MC) ,MJ-1 ,3) 

6307 F0RMAT(2H ♦ . IX ,3(2X , *VCL( 1 , II , * , Ml , * )« * , FQ.6) ,T79, 1H*) 
CM* 

Cttt AC*RADIUS OF ELLIPSE ON X CTLINDER AXIS 
C$$$ BC^RADIUS OF ELLIPSE ON Y CYLINDER AXIS 

cut 

Ctu ZCN,THTN=MOST NEGATIVE ENDCAP'S Z COMPONENT 
Cttt AND ANGLE OF SURFACE WITH THE CYLINDER AXIS 
C$$$ ZCP.THTPsMOST POSITIVE ENDCAP’S Z COMPONENT 
Cttt AND ANGLE OF SURFACE WITH THE CYLINDER AXIS 

cm 

IF(IR(1) .EQ . 11(40)) GO TO 6400 
NEC(MC)=2 

READC6,*) AC(1,MC) , BC ( 1 ,MC) 

READ (6,*) ZCN , THTN , ZCP , THTP 
AAD=AC(1,MC) 

BB0”BC(1,MC) 

AC(1 ,MC)=AC(1 ,MC)*UN1TS 
BC(1 ,MC)-BC(l ,MC) *UNITS 
AC(2,MC)=AC(1,MC) 

BC(2,MC)=BC(1,MC) 

ZC (2 ,MC) =ZCN+UHITS 
TCR (2 , MC) =THTN *RPD 
ZC(1 ,MC)=ZCP*UHITS 
TCR(1,MC)=THTP*RPD 
WRITE(6 , 3006) 

WRITE(6 , 3006) 

WRITE(6 , 8310) LABEL (IUN IT) ,AAO 

6310 FORMAT (2H *.BX,’X AXIS DIMENSION IN ’ , 

2A6 , ' » * , F8 . 3 , T79 , 1H*) 

vrite(6,3006) 

IF (IUNIT . HE. 1) WRITE(6 , 6310) LABEL (1) , AC(l t MC) 

IF(IUNIT.NE.l) WRITE(6 , 3006) 

WRITE(6,3006) 

WRITE(6 , 6320) LABEL(IUNIT) ,BBO 
6320 FORMAT (2H * I 6X, , Y AXIS DIMENSION IN \ 

2A6, ' = ’ ,F8.3,T79,lHO 
WRITE(6 , 3006) 

IF (IUNIT . KE. 1) WRITE(6 , 6320) LABEL(l) ,BC(1 ,MC) 

IF ( IUNIT. NE. 1) WRITE(6 , 3006) 

WRITE(6 , 3006) 

WRITE(6 , 6330) LABEL (IUNIT) , ZCN 

6330 FORMAT (2H ♦.BX.’MOST NEGATIVE END CAP Z COMPONENT IN ’, 

2A6, , F8 . 3.T79 , 1H*) 

WRITE(6 , 3006) 

IF (IUNIT. NE. 1) WRITE(6 , 6330) LABEL(l) , ZC (2 , MC) 

IF (IUNIT . NE . 1) WRITE(6 , 3006) 

WRITE(6 , 6340) THTN 

6340 F0RMAT(2H * ,6X, ’ANGLE OF NEC. END CAP SURFACE WITH NEG.\ 

2’ CYL. AXIS V = \ F8. 3,179, 1HO 
WRITE(6 , 3006) 

WRITE(6 , 3006) 
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2520 


KRITE(6,6350) LABEL(IUNIT) .ZCP 

2621 

6360 

FORMAT (2H ‘.BX.'MOST POSITIVE END CAP Z COMPONENT IN \ 

2622 


aAo.'^'.Faa.TTo.iHO 

2623 


WRITE(6,3000) 

2624 


IF(IUNIT.NE.l) WRITER. «3S0> LABEL(l) .ZC(l.MC) 

2625 


IFOUNIT.NE. 1) VRITE(0,300S) 

2526 


VRITE(6,6360) THTP 

2627 

6360 

FORMAT (2H *.61, 'ANGLE OF POS. END CAP SURFACE WITH P0S.\ 

2628 


2’ CTL. AXIS ' . .F8.3.T79, 1H*) 

2620 


CO TO 3000 

2630 

6400 

CONTINUE 

2531 


READ (6.*) NEC(MC) 

2632 


IF(NEC(MC) .CT.NCDX) STOP 

2533 


NECX*NEC(MC) 

2634 


DO 6410 NC-l.NECX 

2536 


READ (6,*) AC(NC.MC) .BC(NC.MC) .ZC(NC.MC) 

2536 


AAO«AC(NC,MC) 

2637 


BBO*BC(NC.MC) 

2638 


ZCN*ZC(NC,MC) 

2530 


AC(NC,MC)=AC(NC,MC) ‘UNITS 

2640 


BC(NC,MC)‘BC(NC,MC) ‘UNITS 

2541 


ZC(NC,MC)‘ZC(HC,MC)»UNIIS 

2542 


TCR(NC,MC)*0.6*PI 

2543 


VRITE(6, 330S) MC , NC . AAO , BBO , ZCH . AC (NC , MC) . BC (NC , MC) , ZC (NC , 

2644 

6410 

CONTINUE 

2645 


CO TO 3000 

2546 

(JSBKf 

:sk 

2647 

4050 

CONTINUE 

2548 


NC: COMMAND «« 

2640 

CM! 


2660 

CM* 

INITIALIZE CYLINDER DATA. 

2661 

cm 


2662 


LCYL-. FALSE. 

2563 


MCX«0 

2654 


VRITE(6, 4061) 

2556 

4061 

F0RMATC2H * I 6X I * CYLINDER DATA IS INITIALIZED. ’.T79.1H*/ 

2556 


2,2H ♦.EX,’ NO CYLINDER IS PRESENTLY IN THE PROBLEM. 1 

2667 


3.T70.1HO 

2568 


GO TO 3000 

2560 

c«**== 

2660 

007 

CONTINUE 

2661 


EN : COMMAND ««== 

2662 

cm 


2663 

cm 

END PROGRAM 

2664 

cm 


2565 


WRITE<6,30G6> 

2666 


VRITE(6, 3006) 

2667 


VRITE(6,3005) 

2568 


STOP 

2660 

c=«= 

£22 

2670 

3800 

CONTINUE 

2671 


XQ: COMMAND ***««=* 

2672 

cm 


2673 

cm 

EXECUTE PROGRAM 

2574 

cm 


2676 


WRiTECe.aooa) 

2576 


VRITE(6,3008) 

2577 

cm 


2678 

C! 1 1 

2. INITIALIZATION SECTION 

2670 

C! 1 1 


2680 


WL= . 2097926/FRQC 

2581 


VK C TPI/WL 

2682 


WRITE (6 , 3005) 

2583 


MPXR'MPX 


2584 

2585 
2680 
2687 

2588 

2589 

2590 

2591 

2592 

2593 
2694 
2595 
2590 

2697 

2698 

2699 
2600 
2001 
2002 

2603 

2604 

2605 
2806 

2607 

2608 

2609 

2610 
2611 
2612 

2613 

2614 

2615 

2616 

2617 

2618 

2619 

2620 
2621 
2622 

2623 

2624 


CHI GROUND PLANE IS ANOTHER PLATE IN SOLUTION. 

IF(LGRND) MPXR=MPX+1 
IF(MPXR.GT.MPDX) WRITE(6,D01) MPXR 
IF (MPXR . GT . MPDX) STOP 
IF( .NOT.LGRND) GO TO 3801 
LPLA= . TRUE . 

MEP(MPXR)«4 
DO 3802 1=1,4 
DO 3802 N=1 ,3 

3802 XX (N , I , MPXR) =XX (N , I ,MPDX) 

LSLAB (MPXR) «LSLAB (MPDX) 

DSLAB(1 ,MPXR)*DSLAB(1 ,MPDX) 

ERSLAB ( 1 , MPXR) *ERSLAB ( 1 , MPDX) 

TESLAB ( 1 , MPXR) -TESLAB ( 1 , MPDX ) 

URSLAB (1 , MPXR) =URSLAB(1 ,MPDX) 

TMSLAB ( 1 , MPXR) =TMSLAB ( 1 , MPDX ) 

3801 CONTINUE 

IF(MPXR.EQ.O) LPLA=. FALSE. 

IF(LPLA) CALL GEOM 

Cl!! MAKE PATTERN INFORMATION MATCH WITH SHADOW CODE 
IF(IVPH.CT.O) THEN 
NVFT=NPV 
NVFP=NPN 
ELSE 

NVFT=NPN 
NVFP=NPV 
END IF 
COLS=NVFT 
THET1=TTS*RPD 
RESTH=TYI*RPD 
THET2=THET1+ (COLS-l) *RESTH 
ROWS=NVFP 
PH1-PZS*RPD 
RESPH*PZI *RPD 
PH2=PH1 * (RQWS-1) *RESPH 

CM! MAKE SOURCE INFORMATION FOR THE FIRST ONE MATCH WITH 
cm SHADOW CODE 
DO 3806 N=1 , 3 
3806 ANTENN(N)=XSS(N. 1) 

RETURN 

END 



FUNCTION BABS 


This is function BABS. It is used to obtain complex absolute values without runtime 


numerical 

errors. 

UVUl 

0002 


FUNCTION BIBS (Z) 

0003 

cm 


0004 

cm 

THIS ROUTINE IS USED TO GIVE COMPLEX ABSOLUTE VALUES. IT IS 

0006 

cm 

USED RATHER THAN STANDARD ROUTINES TO AVOID EXECUTION 

0000 

cm 

ERRORS. 

0007 

cm 


0008 


COMPLEX Z 

0009 


COMMON/LIMIT/SML , SMLR , SMLT , BIG 

0010 


X"ABS(REAL(Z)) 

0011 


T*ABS(AIMAG(Z)) 

0012 


IF (X . LT . SMLT . AND . T . LT . SMLT) CO TO 10 

0013 


BABS-CABS(Z) 

0014 


RETURN 

0016 

10 

BABS-SMLT 

0016 


RETURN 

0017 


END 


BLOCK DATA 


This is contant block data. 


0001 

0002 

c 

BLOCK DATA 

0003 

Cl ! 1 


0004 

C! I I 

LOAD COMMONLY USED DATA IUTO COMMON AREA. 

0005 

Cl 1 1 


0006 


COMPLEX CJ.CPI4 

0007 


COMMON/PIS/PI ,TPI, DPR, RPD 

0008 


COMMON/COMP/C J.CPI4 

0009 


COMMON/LIMIT/SML , SMLR , SMLT . B IG 

0010 


DATA PI, TPI, DPR .RPD/3. 14159266. 6. 28318531, 57. 2957795, 

0011 


20.0174532925/ 

0012 


DATA CJ,CPI4/(0. ,1.) , (.70710678,-. 70710678)/ 

0013 


DATA SML.SMLR, SMLT, BIG/1. E-3, 1 .E-5, 1 .E-10, 1 .E30/ 

0014 


END 
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FUNCTION BTAN2 


This function is identical to the intrinsic fortran ATAN2 function, except it avoids 
runtime numerical errors. 


0001 

0002 

0003 

0004 
0006 
0006 

0007 

0008 
0000 
0010 
0011 
0012 

0013 

0014 
0016 
0016 

0017 

0018 


C - 

FUNCTION BTAN2(T,X) 

CM! 

CM! THIS ROUTINE IS USED TO COMPUTE THE ARCTANGENT. IT IS 
CM! SIMILAR TO ATAN2 EXCEPT IT AVOIDS THE RUN TIME ERRORS. 
CM! 

COMMON /PIS /PI ,TPI ,DPR,RPD 
COMMON/LIMIT/SML , SMLR , SMLT , BIG 
IF ( ABS (X) . GT . SMLT) CO TO 60 
IF(ABS(T) .GT.SMLT) GO TO 10 
BTAN2=0. 

RETURN 

10 BTAN2*0.6*PI 

IF(T . LT.O. ) BTAN2— BTAN2 
RETURN 

60 BTAN2«ATAN2(T,X) 

RETURN 

END 


SUBROUTINE CAPINT 


This routine is used to determine if a ray strikes an elliptic cylinder endcap. 


0001 

0002 

C— 

SUBROUTINE CAPIMT(XIS ,D ,DHIT t MD,LHIT ,MH) 

# ' 

0003 

cm 



ooo; 

C! J 1 

DOES RAT HIT ENDCAP? 


0006 

C? ! ! 



0006 


INCLUDE 'SHACOM . FOR ' 


0172 


DINOSIOH XIS(3) ,D(3) ,XT(3) ,XISC(3) ,DC(3) 


0173 


LOGICAL LHI T , LDEBUG , LTEST , LWARN 


0174 


COMMON/TEST/LDEBUG , LTEST , LVf ARH 


0176 


COMMON / LXMIT/SML . SMLR , SMLT , B I G 


0176 


COMMON/WAVE/tfX , WL 


0177 


LHIT*. FALSE. 


0178 


DHIT=0 . 

■ *** 

0179 

cm 

STEP THROUGH CYLINDERS 


0180 


DO 40 MCC=1,MCX 


0181 


IFCMH.LT.O .AND. IABS(MH) .NE.MCC) GO TO 40 


0182 


IF (MH . GT . 0 .AND. MH.EQ.MCC) GO TO 40 


0183 


CALL CYLROT (D , DC , 1 , MCC) 


0184 


CALL CYLROT (X IS, XISC, 2, MCC) 


0186 

CM! 

STEP THRU ENDCAPS 


0186 


NEC X= NEC (MCC) 


0187 


DO 40 MN=1 , NECX 


0188 


IF (MD . LT . 0 .AND. IABS(MD) . NE.MN) GO TO 40 


0189 


IF (MD .GT . 0 .AND. MD.EQ.MN) GO TO 40 


0190 


A=AC(MN ,MCC) 


0191 


B=BC(MN,MCC) 


0192 


CNC=COS(TCR(MN ,MCC) ) 


0193 


SNC*SIN (TCR (MN , MCC) ) 


0194 


AN=-X1SC(1) *CNC+ (XISC(3)-ZC(MN,MCC))*SNC 


0196 


DN=-CNC*DC(l)+SNC*DC(3) 

*** 

0196 

Cl ! ! 

DOES RAY HIT ENDCAP PLANE? 


0197 


IF(AN*DN . GE . 0. ) GO TO 40 


0198 

Cl ! ! 

COMPUTE PDINT XT, WHERE RAY HITS ENDCAP PLANE 


0199 


DO 10 N=1 , 3 


0200 

10 

XT(N)=XISC(H)-AN*DC(N)/DH 


0201 


RH0T=XT(1) *XT(1) +XT(2) *XT(2) 


0202 


2+(XT(3)-ZC(MN,MCC))*(XT(3)-ZC(MN,MCC)) 


0203 


RHOT*SqRT(RHQT) 

. 

0204 


AE*A/SNC 


0206 

Cl 1 1 

IS HIT POINT ON ENDCAP? 


0206 


IFCRHOT.GT.AE .AND. RHOT.GT.B) GO TO 40 


0207 


IFCRHOT.LT. AE .AND. RHOT.LT.B) GO TO 20 


0208 


VE=BTAN2(A+XT(2) ,B*XT(1)) 

•-*1 

0209 


CVE=COS(VE) 


0210 


SVE=SIN (VE) 


0211 


RHO=SqRT (AE* AE*CVE*CVE+B*B*SVE*SVE) 


0212 


IF(RHOT.GT.RHO) GO TO 40 


0213 

20 

CONTINUE 


0214 

C! ! ! 

CALCULATE DHT, THE DISTANCE FROM SOURCE TO HIT POINT 


0216 


DHT=0 . 


0216 


DO 30 N = 1 , 3 

■ 

0217 

30 

DHT=DHT + (XT(N) -XISC(N))* (XT (N) -XISC (N) ) 


0218 


DHT=SQRT (DHT) + SMLR* WL 


0219 


IF (LHIT .AND. (DHT . GT .DHIT) ) GO TO 40 


0220 


LHIT* . TRUE. 


0221 


DHIT^DHT 


0222 


IF(MD.LE.O) GO TO 40 
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0223 


CALL CTLROT (XIS , XT , -2 ,MCC) 

0224 

40 

CONTINUE 

0226 


IF(LTEST) THEN 

0220 


writeCo , 000) 

0227 

900 

FORMAT (/ , ' TESTING CAPINT SUBROUTINE*) 

0228 


WRITECO,*) XIS 

0229 


WRITECO,*) D 

0230 


VRITECO,*) DHIT.MD.LHIT.MH 

0231 


ENDIF 

0232 


RETURN 

0233 


END 



SUBROUTINE CYLINT 


This routine is used to determine if a ray strikes an elliptic cylinder. 


0001 

c 


* 

0002 


SUBROUTINE CYLINT(XS,D,DHIT,LHIT,LBDF,MH) 


0003 

cm 



0004 

cm 

DOES RAY HIT CYLINDER? 

m 

0005 

cm 



0006 


INCLUDE 'SHACOM. FOR' 


0172 


DIMENSION D(3) ,XS(3) ,VTD(2) ,BTD(4) ,CTC(2) ,DC(3) ,XSC(3) 


0173 


LOO ICAL LHIT, LBDF , LPLA, LCTL, LDEBUG , LTEST , LHT , LWARN 


0174 


COMMON/LPLCY/LPLA ,LCYL 


0176 


COMMON/TEST/LDEBUG . LTEST , LWARN 


0176 


COMMON/LIMI T/SML , SMLR , SMLT , BIC 


0177 


COMMON/WAVE/WK.WL 


0178 


LHIT* .FALSE. 


0170 


DHIT*0 . 


0180 


IF (.HOT. LCTL) GO TO 100 


0181 

Cl ! 1 

STEP THRU CYLINDETS 


0182 


DO 60 MCC=i,MCX 


0183 


IF(MH.LT. 0 .AND. IABS(MH) .NE.MCC) CO TO 50 


0184 


IF(MH. GT. 0 .AND. MH.Eq.MCC) GO TO 50 


0185 


CALL CYLRDT(XS , XSC , 2 ,MCC) 


0186 


CALL CYLROT(D,DC, 1 ,MCC) 


0187 

Cl 1 1 

DOES RAY HIT CYLINDER SURFACE SECTION? 


0188 


PHSR=BTAN2(DC(2) ,DC(1)) 


0180 


CPS=COS(PHSR) 


0100 


SPS=SIN (PHSR) 


0101 


RH0S-SQRT(XSC(1) *XSC(1) +XSC(2)*XSC(2)) 


0102 

cm 

STEP THRU CYLINDER SECTIONS 


0103 


NECX=NEC (MCC) - 1 


0104 


DO 40 HC=1 ,NECX 


0105 


NCP=NC+ 1 


0106 


A=AC(NC,MCC) 

T 

0107 


B=BC(NC ,MCC) 


0108 

cm 

PARAMETER FOR ELLIPTIC CYLINSER 


0190 


CTC(l)“COS(TCR(NC ,MCC) ) /SIN (TCR(NC ,MCC) ) 


0200 


CTC(2)=C0S(TCR(NCP ,MCC) )/SIN(TCR(NCP,MCC)) 


0201 

CM ! 

PARAMETERS FOR CONE FRUSTUMS SECTION 


0202 


ZZC=ZC (NCP , MCC) -ZC (HC , MCC) 


0203 


IF(ABS(ZZC) .LT.SML*HL) CO TO 40 


0204 


TH J« (AC (NCP , MCC) - AC (NC , MCC) ) /ZZC 


0205 


FL=TNJ*(XSC(3)-ZC(NC.MCC))/A*1. 


0206 

C! 1 ! 

RADII AT SOURCE LOCATION 


0207 


AL*A*FL 


0208 


BL=B*FL 


0200 

C! 1 1 

IS SOURCE INSIDE OF INFINITE CYLINDER? 


0210 


IF(RHOS.GT. AL .AND. RHOS.GT.BL) CO TO 5 


0211 


IF(RHOS.LT.AL .AND. RHOS.LT.BL) GO TO 30 


0212 


VE=BTAN2(AL*XSC(2) ,BL*XSC(1)) 


0213 


CVE=COS(VE) 


0214 


SVE=SIN(VE) 


0216 


RHQE=SqRT(AL*AL*CVE*CVE*BL*BL*SVE*SVE) 


0216 


IF(RHOS.GT.RHCE) GO TO 6 

• 

0217 

30 

CONTINUE 


0218 

Cl ! ! 

IS SOURCE INSIDE OF FINITE CYLINDER SECTION? 


0219 


IF(XSC(3) .GT. (ZC(NC , MCC) +XSC(1) *CTC(1) ) ) CO TO 40 


0220 


IF(XSC(3) .LT. (ZC(NCP,MCC)+XSC(l)*CTC(2))) CO TO 40 

* 

0221 


LHIT 15 . TRUE. 


0222 


GO TO 100 
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0323 

6 

CONTINUE 

0324 

Ctll 

FIND COEFFICIENT OF EQUATION TO DETERMINE HIT POINT 

0226 


AA-A*A 

0226 


BB-B*B 

0227 

cm 

PARTS FOR ALL ELLIPTIC CROSS SECTION TTPES 

0228 


CA*DC (1)*DC(1)/AA+DC(2)*DC (2) /BB 

0229 


CB=XSC(i) *DC(l)/AA+XSC(2) *DC(2)/BB 

0230 


CC=XSC(1) *XSC(1)/AA+XSC(2) *XSC(2)/BB 

0231 

cm 

PARTS FOR CONE FRUSTUM SECTIONS 

0232 


CA“CA-TNJ*TNJ*DC(3)*DC(3)/AA 

0233 


CB“CB-TNJ*FL*DC(3)/A 

0234 


CC=CC-FL*FL 

0236 

Clt! 

IS QUADRATIC SOLVABLE IN REAL SPACE? 

0236 

cm 

IF NOT, NO HIT POINT ON CYLINDER SURFACE SECTION 

0237 


CT=CB*CB-CA*CC 

0238 


IFCCT.LE.O.) CO TO 40 

0239 

cm 

DETERMINE TWO POSSIBLE HIT DISTANCES 

0240 


SCT=SQRT(CT) 

0241 


RHP«(-CB*SCT)/CA 

0242 


RHM* (-CB-SCT) /CA 

0243 

cm 

NEAREST POSITIVE ONE IS TRUE HIT POINT 

0244 


IF (RHP . LT . 0 , . AND . RHM . LT . 0 . ) THEN 

0246 


GO TO 40 

0246 


ELSE 

0247 


IF(RHP.LT.O. . OR.RHM.LT.O.) THEN 

0248 


RH=AMAX1 (RHP, RHM) 

0249 


ELSE 

0260 


RH«=AMIN1 (RHP.RHM) 

0261 


EHDIF 

0262 


END IF 

0263 


XPM=RH*DC(1)4XSC(1) 

0264 


ZPM=RH*DC(3) +XSC(3) 

0266 

cut 

IS HIT POINT ON FINITE CYLINDER SECTION? 

0266 


IF<ZPM.GT.ZC(NC ( MCC)4XPM*CIC(1) .OR. 

0267 


2ZPM.LT. ZC(NCP,MCC)+XPM*CTC(2)) GO TO 40 

0258 

cm 

DISTANCE FROM SOURCE TO HIT 

0269 


DHT s RH+SMLR*1tfL 

0260 

cm 

CHECK FOR NEAREST HIT POINT FOR DIFFERENT SECTIONS 

0261 


IF(LHIT .AND. (DHT.CT.DHIT)) GO TO 40 

0262 


LHIT* . TRUE. 

0263 


DHIT^DHT 

0264 

40 

CONTINUE 

0266 

cm 

CHECK TO SEE IF RAY HITS ENDCAPS 

0266 


CALL CAPINT(XS ,D,DHT ,0,LHT , -MCC) 

0267 


IF(.NOT.LHT) GO TO 60 

0368 


IF(LHIT .AND. (DHT.CT.DHIT)) GO TO 60 

0269 


LHIT* . TRUE. 

0270 


DHIT«DHT 

0271 

60 

CONTINUE 

0272 

100 

IF(LTEST) THEN 

0273 


WRITE(e.OOO) 

0274 

900 

FORMATC/.’ TESTING CYLIHT SUBROUTINE 1 ) 

0276 


WRITE(6 ,*) XS 

0276 


WRITE(6 ,*) D 

0277 


WRITE(6, *) DHIT.LHIT.LBDF.MH 

0278 


END IF 

0279 


RETURN 

0280 


END 



SUBROUTINE CYLROT 


This routine performs vector transformations between the various cylinder coordinate 
systems and the reference coordinate system. 


0001 

0002 

c 

SUBROUTINE CTLROT (XREF , XCTL, N, MCL) 

0003 

cut 


0004 

CHI 

ROTATES AND OR TRANSLATES VECTORS IN OR OUT OF THE 

0005 

cm 

CYLINDER COORDINATE SYSTEMS 

0006 

cm 


0007 


INCLUDE ' SHACOM. FOR" 

0173 


DIMENSION XREF (3) , XCTL (3) 

0174 


IF(N.IT.O) CO TO 100 

0175 


XC-O. 

0176 


DO 50 1*1,3 

0177 


XCTL(I)*0. 

0178 


DO 50 J=»l ,3 

0170 


IF(H.EQ.2) XC=XCL(J ,MCL) 

0180 


XCYL(I) =XCYL (I) +VCL (I , J ,MCL) * (XREF ( J) -IC) 

0181 

50 

CONTINUE 

0182 


RETURN 

0183 

100 

DO 200 1*1,3 

0184 


XREF(I)*0. 

0185 


DO 150 J»1 , 3 

0186 

160 

XREF(I)=XREF(I)+VCL(J , I , MCL) *XCYL( J) 

0187 


IF(N.EQ . -2) XREF(I)=XREF(I)+XCL(I ,MCL) 

0188 

200 

CONTINUE 

0189 


RETURN 

0190 


END 



SUBROUTINE DOCYLS 


This procedure determines which mode of mapping has been selected by the user and 
calls the appropriate cylinder processing routines. 


IM 

0001 

c 



0002 


SUBROUTINE DOCTLS 

f* 

0003 


INCLUDE ‘SHAC0M.F0R’ 


0160 

cm 


w 

0170 

cm 

This subroutine processes all the cylinders one at a time. 


0171 

cm 

Do any special cylinders last. 


0172 

cm 



0173 


IF ( FILCNM .01. 0 ) THEN 


0174 


DO 1 MC=1 , MCI 


0175 


IF ( MC .NE. FILCNM ) CALL D0CTL( MC, FILCHR ) 


0176 

i 

CONTINUE 


0177 


CALL DOCYLC FILCNM, FILCHC ) 


0178 

cm 



0170 

cm 

Fill with a different character for each cylinder. 


0180 

cm 



0181 


ELSE IF ( FILCNM .LT. 0 ) THEN 


0182 


DO 2 MC=1 , MCI 

w 

0183 


CALL DOCYLC MC, CHAR( MC+ICHAR( '0* ) ) ) 


0184 

2 

CONTINUE 


0165 

C! 1 ! 



0186 

cm 

Fill with the main background fill character. 


0187 

Cl 1 1 



0188 


ELSE 


0180 


DO 3 MC=1 , MCX 


0100 


CALL DOCYLC MC, FILCHR ) 


0101 

3 

CONTINUE 

' W 

0102 


ENDIF 


0103 


RETURN 


0104 


END 


w. 
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SUBROUTINE DOCYL 


This routine projects the shadow boundry of a single cylinder onto the far-zone sphere 
and fills the area of the cylinder with the FILL argument. 


0001 

C- 



0002 


SUBROUTINE D0CTL( IC. FILL ) 


0003 


INCLUDE ’SHACOM.FOR' 

m 

0169 

Cl 1 1 


0170 

Cl II This subroutine process** a single cylinder. 


0171 

cm 


0173 


CHARACTER FILL 


0173 


INTEGER 


0174 


♦ J, K, IC 


0176 

Cl 

Loop control variables. 


0176 


♦ INT, 


0177 

Cl 

Truncate to integer. 


0178 


+ THETA I, PHI I 


0170 




0180 


REAL 


0181 


4 THETAR, PHIR, 


0182 

Cl 

Theta k phi in radians. 


0183 


♦ T, 


0184 

Cl 

The parametric loop parameter. 


0186 


4 MACME. 


0186 

Cl 

Length of a psuedo-side 


0187 


♦ IPY, 


0188 

C! 

Scratch variable. 


0189 


4 DOT, LSTDOT, 


0190 

Cl 

Dot product variables 


0191 


♦ BTAN2 , SQRT, ABS, 


0192 

Cl 

Miscellaneous functions 


0193 


♦ IYZ( 3 ). 


0194 

C! 

temporary vector 


0196 


♦ xpq( 3 ). 


0198 

Cl 

Source to edge in ref coords 


0197 


♦ XPC( 3 ). 


0108 

C! 

Source to edg* In pat coords 


0109 


4 RIM( 3 ), 


0200 

C! 

Point along cap in cyl coords 

* 

0201 


4 RIM1 ( 3 ) . 


0202 

C! 

Use for dotmin points 


0203 


4 RIM2 ( 3 ), ANCYLC 3 ), 


0204 

C! 

Antenna location in cylinder coords 


0205 


4 DOTMINC 2, 10 ) 


0206 

Cl 

The two angles where dot is minimum 


0207 


LOGICAL 

*»■*» 

0208 


♦ FNDONE 


0209 

C! 

Found one of the zero dots 


0210 

C! 



0211 

CM) Loop through endcaps, and incrementally on edges. 


0212 

Cl!) Transform the antenna to cyl coords (include a translation). 


0213 

Cl 1 1 


0214 


CALL CYLROTC AHIE1IH , ANCYL. *3. IC ) 


0216 

cm 

* 

0218 

CM! Do the endcaps one at a time. 


0217 

cm 


0218 


DO 200 J=l, NEC(IC) 


0219 

cm 

« 

0220 

CM! Loop around the endcap and remember where the dot products are zero 

«• e 

0221 

Ct 1 1 between the vector looking at the point and the radial vector on 
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0222 

cm 

the endcap to the point. The cryptic parameters on the loop say: 

W 

0223 

Cf f ! 

•Loop from zero to 2*PI in one-degree steps.* 


0224 

cm 



0225 


DO 300 T*0.0, TPI+ (TPI/360.0) , (TPI/360.0) 


0226 

cm 


f 

0227 

cm 

Calculate the dot product and remember the two smallest ones. 


0228 

cm 



0220 


RIM( 1 ) * COS(T) * AC(J,IC) 

» 

? * 

0230 


RIM( 2 ) = SIN(T) * BC(J.IC) 

1 

u. 

0231 


RIM( 3 ) * ZC(J.IC) 


0232 


DOT * RIM(l) * ( RIM(1) - ANCYL(l) ) 

r 

0233 


4 ♦ RIM(2) ♦ ( RIM(2) - ANCYLC2) ) 


0234 

cm 


V 

0235 

C! ! ! 

If (the last dot product) * (this dot product) < 0, then that is 

»*» 

0236 

CM! 

where our dot sign goes through zero. 


0237 

cm 



0238 


IF ( T .EQ. 0.0 ) THEN 


0230 


LSTDOT « DOT 

W 

0240 


FNDONE « .FALSE. 


0241 


END IF 


0242 


IF ( SIGN(l.O.DOT) * SICNd.O, LSTDOT) .LT. 0.0 ) THEN 


0243 


IF( .NOT. FNDONE ) THEN 

i 

u 

0244 


D0TMIN( 1, J ) - T 


0246 


FNDONE - .TRUE. 


0246 


ELSE 


0247 


DOTMINC 2, J ) * T 


0248 


END IF 

tew* 

0240 


END IF 


0250 


LSTDOT = DOT 


0261 

C ! ! ! 


i 

0262 

cm 

Calculate theta k phi as we go around the rim. 


0253 

cm 

Transform the rim point into ref. coord, system. 


0254 

cm 

Find vector from source to rim. 


0266 

cm 



0266 


CALL CTLR0TC XYZ, RIM, -2, IC ) 


0257 

CM! 



0258 

cm 

Convert from the reference coordinate system to the pattern 


0250 

cm 

coordinate system. 


0260 

cm 


i 

0261 


XPQ(l) * XYZ(l) - ANTENN(l) 


0262 


XPQ( 2 ) = XYZ(2) - ANTEHH(2) 


0263 


XPq(3) - XTZ(3) - ANTENN (3) 


0264 




0265 


xpc(i) « xpq(i)*vpc(i,i) 4 xpq( 2 )*vpc(i ( 2) 4 xpq(3)»vpc(i,3) 

w 

0266 


XPC(2) * XPq(l)*VPC(2,l) 4 XPq(2)*VPC(2,2) 4 XPq<3)*VPC(2,3) 

- 

0267 


XPC(3) - XPq(l)*VPC(3 ( l) 4 IPq(2)*VPC(3,2) 4 XPq(3)*VPC(3,3) 


0268 




0260 


XPY * SqRT( XPC(1)*XPC(1) ♦ XPC(2)*XPC(2) ) 

w 

0270 

cm 



0271 

cm 

Calculate angles representing border of rim and do branch teit 


0272 

Cl ! J 

on the phi angle. 


0273 

cm 



0274 


THETAR = DTAN2( XPY. XPC(3) ) 

w 

0276 


PHIR * BTAN2( XPC(2), IPC(l) ) 


0276 


IF ( PHIR .LT. PHI-0. 64RESPH ) PHIR = TPI 4 PHIR 

i 

0277 

cm 



0278 

Cl I ! 

Define pixel location. 

U 

0270 

cm 


0280 


THETA I * INT( (THETAR - THET1) / RESTH 4 0.6 ) 4 1 

* 

0281 


PHII * INT( (PHIR - PHI) / RESPH 4 0,6 ) 4 l 


0282 

cm 


w 

0283 

cm 

Put the character into the output buffer at the proper position. 

* 

0284 

cm 

Test if Indices fall within specified window. 


0285 

cm 
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U. 



0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 
0316 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 
0336 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 
0346 

0346 

0347 

0348 

0349 


IF ( (TKETAI .CE. 1) .AND. (THETA I .LE. COLS) ) THEN 
IF ( (PHI I .GE. 1) .AND. (PHII .LE. ROVS) ) THEN 
OUTBUF( THETA I , PHII ) » CHAR(7) 

END IF 
END IF 


cm 

Cfl! Reduplicate a wrapped-around character. 

CM I 

IF ( (PHII .EQ. 1) .AND. ABS(PH2-PH1-TPI) .LE. RESPH) THEN 
OUTBUF( TKETAI, ROKS ) - CHAR(7) 

END IF 

300 CONTINUE 
200 CONTINUE 

cm 

CM! Before rasterizing, connect the ’'detrains". 

CIM A eneakey trick is pulled here. Instead of transforming every 
CM! increment of the dotmln points, only the two end points are 
CM! transformed, then theta ft phi are calculated for each increment. 
CM* This is valid because the line which connects the two points on 
Cl I! the rims of tho cylinders are straigt lines in both RCS and cyl 
C! ! ! coord systems. Note that this gizmo assumes that you are never 
CM! inside of a cylinder, or your dotralns(K,) probably get crossed 
CM! resulting in an lnsids-out or bowtle-shapsd cylinder. 

CM! 


C! 1 1 


DO 400 K=1 , 2 
DO 600 J=l, NEC(IC)-1 
RISK 1 ) = C0S( D0TMIN(K, J) ) 

RISK 2 ) = SIN( DOTSUN(K.J) ) 

RISK 3 ) = 

CALL CTLR0T( RIM1, RIS1, -2, 
RISK 1 ) * C0S( DDTMIN (K , J + l) 

RISK 2 ) = SIN ( D0TMIN(K, J+l) 

RISK 3 ) = 

CALL CYLR0T( RIS12, RIS!, -2, 


* AC( J , IC) 

* BC(J.IC) 
ZC(J,IC) 

IC ) 

) * AC(J+1,IC) 
) * BC(J+1,IC) 
ZC(JU.IC) 

IC ) 


Cl!) This SfAGStE la analogous to the ons in DOPLA sxcspt it 
CM! works with psudeo-sides , so the name is somewhat misleading. 

C! ! ! 

MAGSE * 5QRT( 

4 ( RIM2(1) - RIMl(l) )**2 + 

4 ( RISI2 (2) - RIS11(2) ) **2 4 

4 ( RIM2(3) - RIM1(3) )**2 ) 

T = 0.0 

60 IF ( T .CT. 1.0 ) GOTO 600 

C! ! 1 

CM! 

CM! Thsss functions compute the theta/phl associated with a glvan point 
CM! along a cylinder psuedo-edge as a function of T (See DOPLA.) 

CM! The variables XYZ and RIS! are re-used for multiple purpoeee here. 
CM! 

C ! M Find vector from source to rim. 

CM! Convert from the reference coordinate system to the pattern 
CM! coordinate system 
C! ! ! 

Xpq(i) = ( RIM2(1)-RIM1(1) )*T 4 RIMl(i)-ANTENNU) 

XPQ(2) = ( RISI2(2) -RIM1 (2) )*T + RIM1(2)-ANIENH(2) 

XPq(3) = ( RIS'2(3)-RISU (3) )*T 4 RIM1(3)-ANTEHN(3) 


C! ! ! 


xpc(i) = xpq(i)*vpc(i,i) ♦ xpq(2)*vpc(i,2) 
XPC(2) = XPQ(l) *VPC(2 , 1) 4 XPq(2)+VPC(2,2) 
XPC(3) = XPq(l)*VPC(3,l) 4 XPq(2)*VPC(3,2) 
XPY = SqRT(XPC(l)*XPC(l) 4 XPC(2)*XPC(2)) 


XPq(3)*VPC(l,3) 

XPq(3)*VPC(2,3) 

XPq(3)*VPC(3,3) 


cm Define 


the angles representing the projection of the curved sides 




1 
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O3E0 

0351 

0352 

0353 
0364 

0366 
0356 

0367 
0358 
0350 

0360 

0361 

0362 

0363 

0364 
0366 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0387 

0388 


Cl 11 and do a branch cnt tast on phi. 

Cl 1 1 

THETAR « BTAN2( XPT, IPC(3) ) 

PHIR " BTAN2( XPC(2) , XPC(l) ) 

IF ( PHIR .LT. PH1-0.6*RESPH ) PHIR = TPI ♦ PHIR 

cm 

CM( Define pixel location and pat character In appropriate spot. 

cm 

THETA I = INT( (THETAR - THET1) / RESTH ♦ 0.5 ) ♦ 1 
PHII * INT( (PHIR - PHI) / RESPH ♦ 0.6 ) ♦ 1 

cm 

CII! Chech If angles fall within window. 

cm 

IF ( (THETAI .GE. i) .AMD. (THETAI .LE. COLS) ) THEN 
IF ( (PHII .GE. 1) .AND. (PHII .LE. BOVS) ) THEN 
OUTBUF ( THETAI, PHII ) * CHAR(7) 

END IF 
END IF 

cm 

CM I Reduplicate a wrappad-around character. 

Cf M 

IF C (PHII .EQ. 1) .AND. ABS(PH2-PH1-TPI) .LE. RESPH) THEN 
OUTBUF ( THETAI, BOVS ) « CHAR(7) 

END IF 

T - T ♦ MIN( 0.99, (XPT *ALPH/MACME ♦ l.E-7) ) 

GOTO BO 

600 CONTINUE 
600 CONTINUE 

400 CONTINUE 

cm 

CM) How do an area fill on th« object just outlined. 

C I M Tell SCAN that this it a CYLINDER by using a "2". 

Cl M 

DO 700 PHII = l t ROWS 

CALL SCAN ( IC, 0UTBUF(1 ,PHII) . PHII, FILL, 2 ) 

700 CONTINUE 

RETURN 

END 



SUBROUTINE DOPLAS 


This routine determines which mapping options the user has selected and calls the 
appropriate plate processing routines. 


0001 

0002 

c 

SUBROUTINE DOPLAS 

V 

0003 


INCLUDE ’SHACOM. FOR' 


0160 

Cf f 1 



0170 

Cl ! 1 

Thie eubroutln* processes each plat* on* at a tin*. Th« 


0171 

cm 

highlighting logic 1 b contain*! here. 


0172 

Cl 1 ! 



0173 

cm 

Do th* plat ee on* at a tine, then do th* plat* that was Buppoaed to 


0174 

C! ! I 

b* highlighted last. 


0175 

cm 



0176 


IF ( FILPNM .CT. 0 ) THEN 


0177 


DO 1 MP - 1, MPX 


0178 


IF ( MP . NE. FILPNM ) CALL D0PLA( MP, F1LCHR ) 


0170 

l 

CONTINUE 


0180 


CALL DOPLAC FILPNM, FILCHP ) 


0181 

Cl I 1 


***> 

0182 

C! I 1 

Fill with a different character for each plat*. 


0183 

Cl ! 1 



0184 


ELSEIF ( FILPNM .LT. 0 ) THEN 


0185 


DO 2 MP = 1, MPX 


0188 


CALL D0PLA( MP, CHAR( MP+ICHAR( ’0’ ) ) ) 


0187 

2 

CONTINUE 


0188 

cm 



0180 

cm 

Fill everything with the nain background character. 


0100 

Cl 1 1 



0101 


ELSE 


0102 


DO 3 MP « 1, MPX 


0103 


CALL D0PLA( MP , FILCHR ) 


0104 

3 

CONTINUE 

*** 

0195 


END IF 


0196 




0197 


RETURN 


0198 


END 



200 




*4M 


csssm 




SUBROUTINE DOPLA 

w 


This routine computes the shadow map for a single cylinder by projecting its boundries 



onto the far-zone sphere and then filling in its area in the map array. 



0001 


w 


0002 

SUBROUTINE D0PLA( IP, FILL ) 



0003 

INCLUDE 'SHACOM. FOR' 


* 

0169 

CHARACTER FILL 



0170 

INTEGER 

w 


0171 

+ IP, INT, 



0172 

Cl Truncate to the nearest integer. 



0173 




0174 

♦ THETAI , PHI I 



017G 

Cl Local indicias into char array. 



0176 




0177 

REAL 



0178 

♦ T, 



0179 

Cl Parametric increment parameter. 

Km 


0180 




0181 

+ TKETAR, PHIR, 



0182 

CIThata k phi in radiana. 

- 


0183 


K- 


0184 

♦ MACME, 



0186 

Cl Length of sida ME. 



0186 




0187 

♦ IPY, 

Km 


0188 

Cl temporary variabla 



0189 




0190 

♦ xpq(3), 



0191 

Cl Sourca to edge in raf coords 



0192 


K— 


0193 

4 XPC(3) , 



0194 

C! Sourca to edge in pat coorda 



0196 




0196 

♦ BTAN2, SQRT , ABS 

»M. 


0197 

Cl Miecellanaoue functions. 



0198 

Cl 1 1 



0199 

Cl 11 Loop through incrementaly along adgas. 



0200 

cm 



0201 

DO 200 ME=1 , MEP( IP ) 



0202 

NEXTME * M0D( ME, MEP(IP) ) ♦ 1 



0203 

MACME « VMAG( ME, IP ) 



0204 

T « 0.0 



0206 

60 IF ( T .GT. 1.0 ) GOTO 100 

Wn 


0206 

Cl 1 1 



0207 

Cl II These functions compute the theta/phl associated with a given 



0208 

Cl II point along an edge between two corners ME and NEXTME as a 



0209 

C!!t function of T. T varies from 0 to 1 and is adjusted to keep 

Km 


0210 

Cl 11 within a safe and efficient excursion at all times. 



0211 

cm 



0212 

Cl 1 1 Convert from the reference coordinate system to the pattern 



0213 

Cl II coordinate system 

Km 


0214 

Cl 1 1 



0216 

XPQ (1)=(XX(1, NEXTME , IP) -XX (1 , ME , IP) )*T+XX(1,ME,IP) -ANTENH (1) 

• 


0216 

XPq( 2 )=(XX( 2 ,NEXTME, IP) -XX (2, ME, IP))*T+XX(2,ME, IP)-ANTENN(2) 



0217 

XPQ (3) =(XX (3 , NEXTME, IP) -XX (3, ME, IP)) *T+XX(3 ,ME , IP)-ANTENN(3) 

a 


0218 


W 

* 


0219 

xpc(i)=xpq(i)*vpc(i,i) ♦ xpq( 2 )*vpc(i, 2 ) 4 xpq(3)*vpcd,3) 



0220 

XPC(2)=XPq(l)*VPC(2.1) 4 XPq(2)*VPC(2,2) 4 XPq(3)*VPC(2,3) 



0221 

XPC(3)*=XPq(l)*VPC(3,l) 4 XPq(2)*VPC(3,2) 4 XPq(3)*VPC(3,3) 
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4m 









0223 



0223 


XPY * 5QRI( XPCClWPCd) ♦ XPC(2) *XPC(2) ) 

0224 

C! ! 1 


0225 

C! ! f 

Define the anglt* representing the projection of the carved eldee 

0226 

C\ H 

and do a branch cat test on phi. 

0227 

CIM 


0228 


THETAR » BTAN2( XPT, XPC(3) ) 

0229 


PHIR = BTAN2( XPC(2), XPC(l) ) 

0230 



0231 


IF ( PHIR .LT. PH1-0.5*RESPH ) PHIR * TPI 4 PHIR 

0232 

C! 1 ! 


0233 

cm 

Defino pixel location and put the a character in the appropriate 

0234 

Cl 1 1 

spot . 

0235 

C! ! 1 


0236 


THETAI = INT( (THETAR - THET1) / RE5TH ♦ 0.6 ) M 

0237 


PHII = I1ITC (PHIR - PHI) / RESPH ♦ 0.B ) ♦ 1 

0238 

cm 


0239 

cm 

Check if angles fall within window. 

0240 

cm 


0241 


IF ( (THETAI .GE. 1) .AND. (THETAI .LE. COLS) ) THEN 

0242 


IF ( (PHII .GE. 1) .AND. (PHII .LE. ROWS) ) THEN 

0243 


OUTBUF ( THETAI , PHII ) * CHAR(7) 

0244 


END IF 

0245 


ENDIF 

0246 

cm 


0247 

C! ! ! 

Reduplicate a wrapped-aronnd character. 

0248 

cm 


0249 


IF( (PHII .EQ. 1) .AND. ABS(PH2-PH1-TPI) .LE. RESPH) THEN 

0250 


OUTBUF ( THETAI, ROWS ) - CHAR (7) 

0251 


ENDIF 

0252 

cm 


0263 

cm 

Put an upper bound on the increment for the case when the line 

0254 

C! 1 ! 

segment ia very short or the distance to the segment is great. 

0255 

C! ! ! 

In the degenerate case (on the Z-axia) prevent a potential infinite 

0256 

C! ! ! 

loop by putting a lower bound on delta-t (ie by always adding at 

0267 

C! ! ! 

lsast a very small number to T.) 

0268 

C! ! ! 


0269 


T - T 4 Mil 1( 0.99, (XPY*ALPH/MAGME 4 i.E-7) ) 

0260 


GOTO 60 

0261 

100 

CONTINUE 

0262 

200 

CONTINUE 

0263 

C! 1 ! 


0264 

C! ! ! 

Now do an area fill on the object just outlined. 

0265 

cm 

Tell SCAN that this is a plate by using a "1". 

0266 

C! 1 ! 


0267 


DO 300 PHII - 1, ROWS 

0268 


CALL SCANC IP, OUTBUF (1. PHII), PHII, FILL, 1 ) 

0269 

300 

CONTINUE 

0270 



0271 


RETURN 

0272 


END 


202 



SUBROUTINE GEOM 


This routine computes necessary geometrical information needed by other routines. It 
is called before the main command loop. 


0001 

0002 

c 

SUBROUTINE GEOM 

0003 

C! 1 I 


0004 

Cl 1 1 

THIS ROUTINE COMPUTES ALL THE GEOMETRY ASSOCIATED 

0005 

Cl 1 1 

WITH FIXED PLATE STRUCTURE .SUCH AS EDGE UNIT VECTORS, 

0006 

cm 

PLATE NORMALS , SHADOWED PLATES .ETC. 

0007 

cm 


0008 


INCLUDE ’ SHACOM . FOR* 

0174 


DIMENSION IHIT (HEX) , XII (3) ,XIH(3) , VI (3) ,XC(3) , XSI (3) ,ISII(3) 

0176 


DIMENSION X0B(3) ,XDC(3) ,VTCP(2) ,BTCP(4) ,VTCN(2) ,BTCN(4) ,DS(3) 

0170 


DIMENSION W0(3) ,WN(3) ,WB(3) ,WH(3) ,XBT(3) ,PVUUU(3) 

0177 


LOGICAL LSURF.LNPL.LTRN1 

0178 


LOGICAL LSHD . LSTD . LSTS . LCTD . LKCT . LHIT 

0170 


LOGICAL LGRND , LIHD . LDEBUG , LTEST . LVARH 

0160 


COMMON/TEST/LDEBUG , LTEST . LWARN 

0181 


COMMON/LIMIT/SML . SMLR . SMLT , B IG 

0182 


COMMOH/WAVE/WK.WL 

0183 


COMMON/LSHDP/LSTS . LSTD (NEX) 

0184 


COMMON/GROUND/LGRHD , MPXR 

0186 


IF (LDEBUG) WRITE (6 ,687) 

0188 

667 

FORMATC/,' DEBUGGING GEOM SUBROUTINE') 

0187 

cm 

DETERMINAIQN OF V.VN.AND VP UNIT VECTORS FOR EDGE-FIXED 

0188 

Cl 1 ! 

COORDINATE SYSTEM 

0180 

Cl 1 1 

STEP THRU PLATES 

0100 


DO 100 MP=1 ,MPXR 

0101 


MEX=MEP (MP) 

0102 

Cl 1 1 

STEP THRU EDGES 

0103 


DO 16 ME= 1 , MEX 

0104 


MME^ME-* 1 

0106 


IF(MME.CT.MEX) MME=1 

0106 


VM*0 . 

0107 

cm 

CALCULATE EDGE UNIT VECTOR V AND EDGE LENGTH VMAG 

0108 


DO 10 N*l,3 

0100 


V(N ,ME ,MP) ®XX (N .MME.MP) -XX (N .ME.MP) 

0200 

10 

VM=VM+ V ( N . ME , MP) * V (H . ME . MP) 

0201 


VMAG (ME.MP) =SqRT(VM) 

0202 


DO 11 N*l,3 

0203 

n 

V(N ,ME,MP)=V(N , ME.MP) /VMAG (ME.MP) 

0204 

16 

CONTINUE 

0206 


IF (.NOT. LDEBUG) GO TO 991 

0206 


DO 992 ME=1 .MEX 

0207 


WRITE(6 , *) (V(N.ME.MP) ,N=1,3) 

0208 

092 

CONTINUE 

0200 

901 

CONTINUE 

0210 

cm 

CALCULATE PLATE UNIT NORMAL VN 

0211 


VN(1,MP)=0. 

0212 


VN(2,MP)«0. 

0213 


VN(3,MP)=0. 

0214 


DO 22 ME e l ,MEX 

0216 


MV*ME-* 1 

0216 


IF(MV.GT.MEX) MV»1 

0217 


VN (1. MP)«VN(1,MP)*V(2,ME,MP)*V(3,MV,MP)-V(2, MV, MP)*V(3, ME.MP) 

0218 


VH (2 .MP) *VN (2.MP) 4 V(3 l ME,MP)*V(l,MV,MP)-V(3,MV,MP)*V(l,ME,MP) 

0210 


VN (3,MP)=*VH(3,MP) +V(1 , ME.MP) *V(2,MV ,MP)-V(1 ,MV,MP) *V (2, ME.MP) 

0220 

22 

CONTINUE 

0221 


VNM=0 . 


0222 

0223 

0224 

0225 
0220 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 
0230 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 
0246 

0246 

0247 

0248 
0240 

0250 

0251 

0252 

0253 

0254 

0255 


DO 20 H=l,3 

20 VNM=VNM+VH (N ,MP) *VK (N ,MP) 

VNM=SQRT (VMM) 

DD 21 H=*l ,3 

21 VN (N , MP) =VN (N,MP) / VMM 

IF(LDEBUC) VRITECO,*) (VH(N.MP) .11*1,3) 

C! 9 1 INSURE THAT ALL PLATES ARE FLAT. OTHERWISE ABORT 1 
Cl 1 9 TAKE DOT PRODUCT OF PLATE NORMAL AND EACH EDGE UNIT VECTOR 
DO 120 ME=i ,MEX 

D0T=VH(1 ,MP)*V(1, ME.MP) + VN(2,MP) *V(2,ME,MP)*VN(3,MP)*V(3,ME,M?) 
ADQT=ABS(DOT) 

IF(ADOT.LT.O.Ol) GO TO 120 
MZE*ME+1 

IF(MEE.GT.MEX) MEE=1 
WRITE(6, 121} MP.KEE.ADOT 

121 FORMAT ( ’ PLATE # *,12, 1 IS NOT FLAT! CORNER # ’,12/ HAS \ 

2 ' PROBLEM . ’ / * WARP* ’.F7.3/ PROCRAM ABORTS IF THE WARP’ 

3’ IS GREATER THAN 0.03 +*****’) 

IF (ADOT . GT . 0 . 03) STOP 
120 CONTINUE 

Cllt CALCULATE UNIT BINORMAL VP WHICH IS IN PLATE PLANE 
CHt AND PERPENDICULAR TO PLATE EDGE 
C! ! ! TAKE CROSS PRODUCT OF PLATE NORMAL AND EDGE VECTOR 
DO 30 ME=1 ,MEX 

VP (1 ,ME ,MP)*VM (2 , MP) *V (3 , ME.MP) -VH (3 ,MP) *V (2 , ME.MP) 

VP(2 , ME.MP) =VN (3.MP) *V(1 .ME.MP) -VN(1 ,MP) *V(3, ME.MP) 

30 VP(3, ME.MP) =VN (1 1 ^)*V(2 I ME.MP)-VN(2 < NP)*V(1 I ME, M?) 

IF C . NOT . LDEBUG) GO TO 993 
DO 994 ME-1 ,MEX 

994 WRITE(6 , *) (VP(N , ME.MP) ,N-1,3) 

993 CONTINUE 
100 CONTINUE 
RETURN 
END 




\ 
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SUBROUTINE INITGF 


This routine is used to initialize graphics each time an output is desired. Here, it zeroes 
out the previous array information and recalculates parameters based on the user-specified 
desired resolution. 


* 

0001 

c 



0002 


SUBROUTINE INITGF 


0003 


INCLUDE 'SHACOM. FOR* 

w 

0160 

cm 



0170 

cm 

This subroutine initializes eoae graphics stuff. 


0171 

cm 

Ite function i» to initialize things from one plot to the next, 


0172 

cm 

but within the context of a single session. 


0173 

C! 1 I 



0174 


INTEGER 


017B 


♦ I, J. INT 


0176 

cm 


l 

0177 

cm 

Clear the character buffer. 


0178 

cm 



0170 


DO 10 >1, MAXROW 


0180 


DO 10 I«l, MAXCOL 

; 

0181 

10 

OOTBUF( I. J ) - 1 ’ 

w 

0182 

cm 



0183 

C! 1 1 

The number of rows k columns needed for internal representation is 


0184 

cm 

calculated from the user-selected (or defaulted) angular ranges of 


0185 

cm 

interest combined with the desired resolution in rads/pixel 


0186 

cm 



0187 


ROWS = INT ( (PH2 - PHI) / RESPH ♦ 0.6 ) ♦ 1 


0188 


COLS « INT( (THET2 - THET1) / RESTH ♦ 0.6 ) ♦ 1 


0180 

Cf ! I 


i 

» — 

0100 

cm 

Calculate some parameters needed by the dynamic T increment 


0101 

Clt! 

algorithms. The maximum allowable angular excursion is the 


0102 

cm 

smaller of the number of radians in a single pixel of either theta 

i 

0103 

Cl ! ! 

or phi. 

L 

0104 

cm 


0105 


ALPH * MI N ( RESTH, RESPH ) 


0106 

cm 



0107 


RETURN 


0108 


END 
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SUBROUTINE PLAINT 


This routines determines if a given ray strikes a plate. 


0001 

C 

r 







0003 


SUBROUTINE PLAINT(XIS,D .DHIT.MH, LHIT) 


0004 

Cl I ! 


** 

0005 

cm 

DOES RAY HIT PLATE. IF MH=0 ALL PLATES ARE CHECKED. 


0006 

cm 

IF MH=-MP THEN ONLY M P CHECKED AND SOURCE POSITION 


0007 

Cl 1 1 

MOVED TO HIT POSITION IF RAY HITS MP. 


0008 

CM 1 

IF MH=MP, THEN ALL PLATES OTHER THAN MP ARE CHECKED. 


0000 

Cl 1 I 


fmy 

0010 


INCLUDE •SHACOM-FOR 1 


0176 


DIMENSION XI5(3),D(3),XT(3),PVTRN(3) 


0177 


LOGICAL LHI T , LPLA , LCYL , LSTS , LSTD , LTRN 


0178 


LOGICAL LGRND , LDEBUG , LTEST , LVfARN 


0170 


COMMO N / TEST / LDEBUG , LTEST , LYA&H 


0180 


COMMON/ LIMIT/SML'SMLR'SMLT, BIG 


0181 


CQMMOH/LPLCY/LPLA , LCYL 


0182 


COMHON/HXTPLT/MPH 


0183 


COMMQN/GROUND/LGRHD ,MPXR 


0184 


LHIT=. FALSE. 


0186 


DHIT=0 . 


0186 


IF (.NOT. LPLA) RETURN 


0187 

C! 1 ! 

STEP THRU PLATES 


0188 


DO 60 MPP=1 ,MPXR 


0180 


MP=MPP 


0100 


IF(MP.EQ.MH) GO TO 60 


0101 


IF(MH.LT.O) MP*IABS(MH) 


0192 

cm 

IF TOTAL SHADOWING ALGORITHM IS BEING USED, HAS PLATE MP 


0103 

cm 

SHADOWED EVERY RAY TESTED? 


0194 

CXXXXX IFCLSTS.AHD. .HOT.LSTD(MP)) CD TO 60 


0105 


MEX=MEP (MP) 


0106 


AN-O. 


0107 


DO 5 N*1 ,3 


0198 

6 

AN=AN* (XIS(N)-XX(N, 1 ,MP))*VN(N,MP) 


0109 


DN*D(1)*VN(1,MP)*D(2)*VN(2,MP)+D(3) *VN (3 , M?) 


0200 

Cl ! ! 

DOES RAY PASS THRU PLATE PLANE? 


0201 


IF(AN*DN.CE.O.) CO TO 50 


0202 


DO 10 N=1 , 3 


0203 

C! 1 1 

CALCULATE POINT WHERE RAY INTERSECTS PLATE PLANE 


0204 

10 

XT(N)*XIS(N)-AN*D(N)/DN 


0206 


IF(MP.Eq.MPXR, AND. LGRND) GO TD 11 

i 

0206 


DBT=0 . 


0207 

Cl 1 ! 

IS HIT POINT ON PLATE? 


0208 


DO 30 ME=1,MEX 

— h 

0209 


MME-ME*1 


0210 


IF(MME.GT.MEX) MME=1 


0211 


RD=0 . 


0212 


DO 20 N-l ,3 


0213 

20 

RD=RD+ (XX (N,ME,MP) -XT(N) ) * (XX(N f MME.MP)-XT(N)) 


0214 


CP=VN ( 1 , MP) * ( (XX (2 , ME.MP) -XT(2) ) * (XX (3 ,MME,MP) -XT (3) ) 


0215 


2- Oil (3, ME, MP) -XT(3))*(XX (2,MME,MP)-XT(2))) 


0216 


CP=CP+VN (2 ,MP) * ( (XX (3 ,ME,MP)“XT (3) ) * (XX(1 ,MME ( MP) -XT(l) ) 


0217 


2-(XX(l ,ME,MP)-XT(l))* (XX(3,MME,MP)-XT(3))) 


0218 


CP=CP+VH(3 ,MP) * ( (XX(1 .ME.MP) -XT(1) ) * (XX (2 ,MME,MP)-XI(2)) 


0219 


2-(XX(2,ME,MP)-XT(2))*(XX(l ,MME,MP) -XT(1))) 

<4 

0220 


DBI=BTAN2(CP ,RD) 


0221 


DBT=DBT*DBI 


0222 

30 

CONTINUE 
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0223 


IF(ABSCDBT) .LT.PI) CO TO BO 

0224 

cm 

CALCULATE DISTANCE TO HII (DHIT-SHORTEST DHT) 

0225 

11 

DHT=0. 

0226 


DO 40 N*=l ,3 

0227 

40 

DHT*DHT+(XT(N)-XIS(N))*(XT(N)-XIS(N)) 

0228 


DHT'SQRT (DHT) +SMLR 

0220 


IF(LHIT.A))D. (DHT.CT.DHIT)) CO TO 60 

0230 


LHIT-.TRUE. 

0231 


DHIT*DHT 

0232 


MPH'MP 

0233 


IF(MH.CE.O) CO TO 60 

0234 


DO 4B N-1,3 

0235 

cm 

MOVE HIT POSITION AN INCREMENT TOWARDS SIDE OF PLATE 

0236 

cm 

WHICH SOURCE LIES ON 

0237 

45 

XIS(H)-XT(N)-SICN(SMLR,AN)*VH(N,MP) 

0238 


CO TO 61 

0230 

50 

CONTINUE 

0240 


IF(MH.LT.O) CO TO 61 

0241 

cm 

IF TOTAL SHADOWING ROUTINE IS BEING USED, INDICATE 

0242 

cm 

THAT PLATE MP DOES NOT SHADOW SOURCE 

0243 

CXXXXX IF (ISIS) LSTD (HP) -.FALSE. 

0244 

60 

CONTINUE 

0245 

61 

IF(.NOT.LTEST) CO TO 62 

0246 


WRITE(6,63) 

0247 

63 

FORMAT (/, ' TESTING PLAINT SUBROUTINE') 

0248 


WRITE(6,*) XIS 

0240 


WRITE(6,») D 

0250 


WRITE(6,*> DHIT.MH.LHIT 

0251 

62 

RETURN 

0252 


END 



SUBROUTINE SCAN 


This subroutine rasterizes a line in the character buffer according to its shading require- 
ments. It calls routines to determine if a given point is shadowed or not and uses this 
information to shadow the given geometry. The fill character is used to fill the line in. 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 
0000 
0010 
0011 

0177 

0178 
0170 
0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 
0180 
0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 
0100 
0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 
0200 
0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 
0210 


C— 

CM! 

cm 

CM ! 
CM! 
C! I ! 
CM! 
CM! 
CM! 


CM ! 
C! I ! 
CM ! 


C! ! ! 
C! ! ! 
C! ! f 
100 
Cl ! ! 
Cl ! 1 
Cl I ! 

C! I ! 
C! ! ! 
C! ! ! 
CM I 
CM! 
C! ! ! 
Cl I I 


SUBROUTINE SCAN ( OBJ, LINE. PHII, FILL, TTPE ) 

This subroutine “rasterizes" a lino in the character buffer 
according to its shading requirements . 

Tho fill charactsr is used to fill the 

lino in. Tho line is declared larger character etring in this 
subroutine than in the calling routine. This can bo "hardwired" 
if it causes problems on other machines. 


INCLUDE 'SHACOM.FOR* 


CHARACTER*500 

CHARACTER*! 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

REAL 

REAL 

REAL 

REAL 

REAL 

LOGICAL 

LOGICAL 


LINE 

FILL 

FTR, OBJ 

LSTPTR 

SCANC 

SPANC 

PHII 

TYPE 

DHIT 

D(3) 

DP(3) 

XIS(3) 

THETA, PHI 

EOL 

LHIT, LHIT1 


COMMON /SCNCMN/ PTR, EOL 


Initialize local variables. 


PTR = 1 

LSTPTR = 1 

EOL * PTR .CT. COLS 


Until the end of the line is scanned do . . . 
IF (.NOT. EOL) THEN 


Locate the first occurence of CHAR 7, 8, or EOL. 
PTR = SCANC ( LINE ) 


If plaint sayo it*e a miss, update the leet-pointer , span, scan, 
fill. Otherwise, fill in tho characters between the pointers. 
Define the "source point" AS the location of the antenna, 
and see if our plate ehado'.re the direction of the midpoint of the 
scan. 

THETA = (0 . 5* FLO AT (PTR 4 LSTPTR)-! . 0) *RESTH+THET1 
PHI = (PHII-1) +RESPH+PH1 
DP(1) = SIN (THETA) * CDS (PHI) 

DP(2) = SIN (THETA) *SIN (PKI) 

DP(3) *= COS (THETA) 

D (1) = DP (1) *VPC (1 , 1) + DP(2) *VPC(2 , 1) + DP (3) *VPC(3 , 1) 



0220 


D(2) ■ DP(l)*VPC(l,2) 4 DP(2) *VPC(2 , 2) 4 DP(3)*VPC(3,2) 

0221 


D(3) * DP(1)*VPC(1 ,3) 4 DP(2)*VPC(2.3) 4 DP(3)*VPC(3,3) 

0222 

cm 


0223 

cm 

This sraet be don* dut to th* behavior of plaint modifying IIS. 

0224 

cm 


0226 


XIS(l) « ANTENN(l) 

0220 


XIS(2) - ANTENN(2) 

0227 


XIS(3) * ANTENN(3) 

0228 

cm 


0229 

cm 

Now do a cnee depending on what type of object we test for 

0230 

cm 

shadowing. 

0231 

Cf 1 1 


0232 

cm 

1 ■ plate 

0233 

cm 

2 * elliptic cylinder 

0234 

cm 


0236 


GOTO (1,2) TTPE 

0230 

cm 


0237 

Ct 1 

The object Is a plate. 

0238 

cm 


0239 

i 

CALL PLAINT( XIS, D, DHIT, -OBJ, LHIT ) 

0240 


GOTO 999 

0241 

cm 


0242 

cm 

Th* object is a cylinder. Test endcaps and cylinder bodies. 

0243 

cut 


0244 

2 

CALL CAPINT( XIS, D, DHIT, 0, LHIT1, -OBJ ) 

0246 


IF (.NOT. LHIT1) CALL CTLINT(XIS,D,DHIT, LHIT, .FALSE., -OBJ) 

0240 


LHIT « LHIT .OR. LHIT1 

0247 


GOTO 999 

0248 

cm 


0249 

cm 

Take the appropriate action in th* buffer. 

0260 

cm 


0261 

999 

IF ( .NOT. LHIT ) THEN 

0262 


LSTPTR » PTR 

0263 


PTR * SPANC( LINE ) 

0254 


DO 300 LSTPTR * LSTPTR, PTR-1, 1 

0285 


LINE( LSTPTR ‘.LSTPTR ) = FILL 

0266 

300 

CONTINUE 

0257 


LSTPTR * PTR 

0268 


ELSE 

0259 


PTR » SPANC( LINE ) 

0200 


DO 400 LSTPTR * LSTPTR, PTR-1, 1 

0201 


LINE( LSTPTR ‘.LSTPTR ) ■ FILL 

0262 

400 

CONTINUE 

0263 


LSTPTR « PTR 

0264 


ENDIF 

0265 

C! ! ! 


0266 

cm 

End UNTIL 

0267 

cm 


0268 


GOTO 100 

0269 


END IF 

0270 

cm 


0271 


RETURN 

0272 


END 



FUNCTION SCANC/SPANC 


These functions are used to scan through the character buffer (map array) and lo- 
cate/skip certain characters. They return the positions of these characters aS their result. 


0001 

c 




0003 

CM! 



1 

0003 

C! ! ! 

The following functiona 

epan/ecan charactcre. That le, they 


0004 

C Iff 

return the poaltlon of 

next character in LINE which doe* or does 

j 

0005 

cm 

not match the specficied character. They also 


0006 

C! ! I 

terminate the scan/epan 

at the end of the line. 


0007 

C! 1 ! 




0008 


INTEGER 

FUNCTION SCANC ( LINE ) 


0009 


INCLUDE 

1 SHACOM . FOR ' 


0175 


CHARACTER* (*) LINE 



0176 


INTEGER 

PTR 


0177 


LOGICAL 

EOL 

*•** 

0178 


COMMON /SCHCMN/ PTR, 

EOL 


0179 

cm 




0160 

Cf ! 1 

Until a character matching CHARAC is found, advance the pointer. 


0181 

C! ! ! 



— t 

0182 


SCANC ~ PTR 



0183 

200 

IF (.NOT. (EOL .OR. 



0184 


4 

( LINE(SCANC: SCANC) ,EQ. CHAR(7) ) )) THEN 


0185 


SCANC = SCANC ♦ 1 



0186 


EOL = SCANC .GT. COLS 



0187 


GOTO 200 



0188 


ENDIF 



0189 

C! ! ! 




0190 

C! ! » 

End UNITL 



0191 

Cl 1 1 




0192 


RETURN 



0193 


END 



0001 

C! ! ! 

A- « 



■"1 

UUU4 





0003 

C! ! ! 




0004 


INTEGER 

FUNCTION SPANC ( LINE ) 


0006 


INCLUDE 

’SHACOM. FOR’ 


0171 


CHARACTER* (*) LINE 



0172 


INTEGER 

PTR 


0173 


LOGICAL 

EOL 


0174 


COMMON /SCNCMN/ PTR, 

EOL 


0176 

cm 




0176 

CM 1 

Until a character NOT 

matching ASCII 7 is found, advance the 


0177 

C! ! ! 

pointer . 



0178 

C! ! ! 




0179 


SPANC = PTR 



0180 

200 

IF (.NOT. (EOL .OR. 



0181 


4 

( LINE(SPANC : SPANC) .NE. CHAR(7) ) )) THEN 


0182 


SPANC = SPANC + 1 



0183 


EOL = SPANC .GT. COLS 


0184 


GOTO 200 



0185 


ENDIF 



0186 

C! ! ! 



m 

0187 

Cl 1 1 

End UNITL 



0188 

C! 1 ! 




0189 


RETURN 



0190 


END 


% 

m 


210 



SUBROUTINE WRTOUT 


This subroutine produces formatted and binary output of the shadow map. 



0001 

c 



0002 


SUBROUTINE VRTOUT 


0003 


INCLUDE 'SHACOM. FOR* 


0160 


INTECER I, J, COLI, COLF 


0170 

CIM 



0171 

cm 

This subroutine writes the formatted output buffer to the output 

Wm 

0172 

cm 

file. Start the output on a new page, and calculata a haadar 


0173 

cm 

based on tha specified pixel resolution. 


0174 

cm 



0176 

cm 

Unit 7 le tha main (ASCII) output file. 

u 

0176 

C! ! ! 



0177 

cm 

Inltillze tha width of tha map to ba printed. 


0178 

cm 



0170 


COLI - 1 


0180 


COLF - 01 


0181 


IFCCOLF .GT. COLS) COLF » COLS 


0182 

cm 


, 

0183 

cm 

Print map. 


0164 

cm 


u* 

0186 

20 

WRITE ( 7. 100 ) ( ANIEHN(I) , I«l, 3, 1 ), IHPFIL 


0188 


VRITE( 7, 200 ) ( (RESTH* (1-1) ♦ THET1)*DPR , I» COLI, COLF, 10) 


0187 


WRITE( 7, 260 ) ( I- COLI, COLF, 10) 


0188 


DO 60 J « 1, ROVS 

* 

0180 

60 

WRITE( 7, 300 ) ( RESPH»(J-1) ♦ PHI )*DPR, 


0100 


♦ C OUIBUF(I.J), I- COLI, COLF ) 


0101 

cm 



0102 

cm 

If the map does not fit on tha line printer width, 

lM 

0103 

cm 

than split it onto another eat of pages. 


0104 

cm 



0105 


IFCCOLF .LT. COLS) THEN 


0106 


COLI * COLF 


0107 


COLF * COLF ♦ 90 

Ww 

0108 


IFCCOLF .GT. COLS) COLF = COLS 


0100 


GO TO 20 


0200 


END IF 


0201 

C! ! ! 


Iw tm 

0202 

cm 

Have internal parameters available In degrees. 


0203 

cm 



0204 


THET1D = THET1 *DPR 

' 

0206 


THET2D = THET2 *DPR 

iM 

0206 


REST HD = RESTH *DPR 


0207 


PH1D * PHI *DPR 


0208 


PH2D * PH2 *DPR 


0200 


RESPHD * RESPH *DPR 


0210 

C! ! ! 



0211 

cm 

Unit 10 la a generic sort of binary output which can ba plotted 


0212 

Cl ! 1 

anywhere. Place a little header Info at the front of the file. 


0213 

CM ! 



0214 


WRITEC 10 ) COLS, TKET1D, THET2D, RESTHD 

■— 

0216 


VRITEC 10 ) ROVS, PH1D, PH2D, RESPHD 

* 

0216 

Cl 1 ! 



0217 

cm 

Dump only that part of the buffer which pertains to this plot. 


0218 

cm 



0210 


DO 10 J - 1. ROVS 

S 

0220 


DO 10 I * 1, COLS 


0221 

10 

VRITE (10) OUTBUFC I, J ) 

i 

0222 

cm 



211 


0223 

CM! 

Output stuff It ccnplett. 

0224 

cm 



022S 


RETURN 


0226 

cm 



0227 

Cl 1 1 

Fonaat ttattntnti. 


0228 

Cl I ] 



0220 

100 

FORMAT ( '1* . CX, 

’ANTENNA (RCS) = 2(F8.4, 

0230 


♦ F8.4, ' 

) IN METERS’, 6X, ’INPUT SET: ’ , A42, / ) 

0231 

200 

FORMAT ( T60 , ’THETA (DEGREES)’,/, OX, 11 ( 4X, F6.2) ) 

0232 

260 

FORMAT ( OX, ’PHI’ 

. 4X , k, 10( 9X, *) ) 

0233 

300 

FORMAT ( 6X , F7.2, 

3X , 101A ) 

0234 


END 




L 


V 


u 


L. 


L 


s 

L» 



Include file , . . , ... , 

This is a listing of the common blocks and parameter statements contained m the single 

include file for SHADOW. Note that the include file appears in the compiler listing for the 
interactive service routines. 


cm 

cm COMMON declaration*. . . 

cm 

COMMON /PIS/ 

♦ PI. 

♦ TPI, 

♦ DPR, 

+ RPD 

cm 

C444 MAXIMUM DIMENSION FOR PLATES 
INTEGER NPX 

PARAMETER (NPX*76) 

C*44 MAXIMUM DIMENSION FOR PLATE EDGES 
INTEGER NEX 

PARAMETER (NEX-12) 

C*44 MAXIMUM DIMENSION FOR CYLINDERS 
INTEGER NCX 

PARAMETER (HCX-6) 

C444 MAXIMUM DIMENSION FOR CTLINDER RIMS 
INTEGER NNX 

PARAMETER (NHX-10) 

C444 MAXIMUM DIMENSION FOR ROWS (PHI) 
INTEGER MAXROW 

PARAMETER (MAXROW-361) 

C+44 MAXIMUM DIMENSION FOR COLUMNS (THETA) 
INTEGER MAXCOL 

PARAMETER (MAXCOL-181) 

cm 


COMMON /GEOPLA/ 


♦ 

XX 

(3, HEX, NPX), 

4 

V 

(3 .HEX. NPX), 

4 

VP 

(3. NEX, NPX), 

4 

VN 

(3, NPX), 

4 

MEP 

(NPX) , 

4 

MPX 


COMMON /GEOMEL/ 


4 

AC 

(NNX, NCX), 

4 

BC 

(NNX, NCX), 

4 

ZC 

(NNX, NCX), 

4 

TCR 

(NNX, NCX), 

4 

ICL 

(3, NCI), 

4 

VCL 

(3, 3, NCX), 

4 

NEC 

(NCX). 

4 

MCX 


COMMON 

/EDMAG/ VMAG(NEX.NPX) 

COMMON 

/SHADWN/ COLS, ROWS. ANIENH(3) ,CTR0ID(3) . 

4 


MP , ME , NEXTME , MC , 

4 


THET1 , THET2 , PHI , PH2 , RESTH , RESPH , ALPH , 

4 


UNIT(3) , TRS(3) ,VRS(3 ,3) , IUNIT .UNITF .UNITS ,UN 

4 


THZP , PHZP . THXP . PHXP , FILPNM , FILCNM 

COMMON 

/SHADKC/ 

INPFIL.OUTBUF (MAXCOL, MAXROVf) , 

4 


F1LCHC , FILCHP , FILCHR 


cm 

COMMON /PATCUT/ VPC(3,3) 

cm 


213 


CHI The first set of declarations la tha stuff in /SHADOW/ ccncaon bloc 
CM! 

INTECER 

4 M P, ME, NEXTME, MC, 

C! Platef/edge#/cyl# variables. 

4 FILPNM, FILCNM, 

Cl Plata and cyl numbers for apacial filling 
4 COLS. 

C! The aiza of tha array subsection determined 
4 ROWS 

C! by internal resolution requirements . 

REAL 

4 CTROID, 

C) A geometric canter of the object in question. 

4 ANTENN, 

C! Tha antenna location in Ref Coord. System. 

4 THET1 , 

C! The lower theta end of the range. 

4 THET2, 

C! The higher theta end of the range. 

4 PHI. 

C! The lower phi end of the range. 

4 PH2, 

Cl The higher phi end of the rango. 

4 R ZSTH, 

Cl The desired theta/phl resolution 
4 RESPH, 

C! in units of radians/pixel. 

4 ALPH 

C! Maximum allowed angular excursion. 

CHARACTER 
4 0UTBUF*1 , 

C! The output buffer which is displayed. 

4 INPFIL*63 , 

C! The filename of the input set. 

4 FILCHC, 

Cl special fill character for cylinders 
4 FILCHP , 

C! special fill character for everything else 
4 FILCHR 

Cl special fill character for plates 

DATA FILCHC, FILCHP, FILCHR / 'C', *P\ ’X' / 

C! I I 

CHI From the /PIS/ COMMON block... 

C! I I 

REAL PI, TP I , DPR. RPD 

Cl I I 

CM! From the /CEOPLA/ COMMON block... 

cm 

INTEGER 
4 MEP. 

Cl Number of edges per plate 
4 MPX 

C! Total number of plates 
REAL 

4 XX, 

Cl The array of plate corners 
4 V. 

C! Edge unit vectors 
4 VP, 

Cl Edge unit binomials 
4 VN 



C) Unit normal for each plat* 

cm 

CM! From the /GEOMEL/ COMMON block. . . 

cm 

INTEGER 
4 NEC. 

Cl Number of aactions par cyliadar 
♦ MCI 

Cl Total number of cylinders 
REAL 


♦ AC, 

Cl Elliptic parameter along x-axls 

♦ BC, 

Cl Elliptic parameter along y-axls 

♦ ZC, 

Cl Cylinder endcape In cyl coord eye 

♦ TCR, 

Cl Angle endcap makes with positive z axle 

♦ XCL, 

Cl Cyl coord eye origin 
4 VCL 


Cl 

Cl 


Definition of cyl coord eye 


INTEGER 

REAL 


4 VPC, 

♦ VMAC 
DATA UNIT/1 


IUNIT 

UNITF, 

UNITS, 

UNITN, 

UNIT, 

TRS, 

THZP , PHZP , THIP , PHXP , 
VRS, 


, . 3046 , 0 . 0254 / 


Cl 

C I I I 4 


Clll The following common block is for VMS/SMOt software only. 

cm 


INTEGER 

COMMON /TERCOM/ 


cm- 


KBDID, KETTBL 
KBDID, KETTBL 



10.4 Non-FORTRAN VAX/ VMS source files 

This section contains listings of the source files used by the interactive code which are not 
written in fortran. They are used by the interactive interface and are needed only by the 


VMS utilities. 



CDU Source file 

This file is the source input for the Command Language Definiton Utility (CDU) which 
defines the available interactive commands. 


!♦♦ 

I 

! Flla: SHACMD.CLD Edit: AAA1001 
! 

MODULE COMMAND.TABLES 
I DENT /SHACMD 01-001/ 

»♦ 

1 FACILITY: Shadow 
! 

! ABSTRACT: 

I 

! This is the commnand language definiton source for the SHADOW 
I program. It defines the Interactive command Interface under 
! the VAX/VMS operating syetem. 

! 

1 AUTHOR: Laezlo Takacs 
I 

! CREATED: 1-N0V-1985 
1 

! MODIFIED BY: 

! 1-000 - Original. AAA 1-N0V-1985 

1 1-001 - Laezlo Takace 20-DEC-1985 

} Added support for the SET FILL command and rearranged 
! the SET PLATE and SET CYLINDER commands. 

!- 

) 

! Show ayntax 
I 

Define eyntax ehow_f il_eyntax routine show_fil 

Define eyntax ehow_out_eyntax routine ehow.out 

Define eyntax ehow_inp_eyntax routine ehow_inp 

Define eyntax *how_uni_«yntax routine ehow.uni 

Define syntax ehow_ant_eyntax routine show.ant 

Define syntax ehow_coo_ayntax routine ehow_coo 

Define eyntax ohow_pat_eyntax routine ehow_pat 

Define eyntax show_eca_ayntax routine show.aca 

Define eyntax ehow_win_eyntax routine ehow.win 

Define syntax ehow_key_eyntax routine ehowjcoy 

j 

1 Set eyntax 

I 

Define syntax eet_ant_eyntax routine eet^ant 

Define eyntax eet_coo_eyntax routine eet_coo 

Define eyntax eet_pat_eyntax routine eet_pat 

Define eyntax eet_eca_eyntax routine eet^oca 

Define eyntax oet_win_eyntax routine eet_win 

Define syntax eet_key_ ayntax routine set^key 

Define syntax eet_out_ayntax routine eet^out 

parameter pi value( required ) 
parameter p2 valueC type=$file l required ), 
prompt ="f ilenajae" 
qualifier plottable, default 
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qualifier printable, batch 
qualifier echoing, default 


Define syntax eet.inp.syntax routlna set.inp 
parameter pi value ( rsqulrad ) 
parameter p2 valus( type*|file, raqnirad ), 
proapt*"input eat" 

Define syntax sst.f ll.syntax routins aet.fil 
paraaatsr pi valua (raqnirad) 

paraaatsr p2 value(def ault*"X") ,prompt«"character" 
qualifier plate valua (raqnirad , list) , nonnagatabla 
qualifier cyllndar value(required,list) , nonnagatabla 
qnallflar saquantlal nonnagatabla, syntax*ssqusntlal 
disallow any2 ( plats, cyllndar, saquantlal ) 

Dsflna syntax saquantlal routlna sat.fll 
paranatar pi valua(raqulrad) 

I noqualifiare 

(Define syntax set.pla.eyntax routlna sat.pla 
\ paranatar pi value ( rsqulrad ) 

I paranatar p2 valua ( rsqulrad ), prompt="plate number" 

I parameter p3 valua ( dafault*"P" ), prompt""character" 

I qualifier all eyntax=sat_placyl_all 

IDaflna syntax sst_cyl_syntax routins sst.cyl 

I parameter pi valua ( required ) 

I paramatar p2 value( required ), prcapt*"cyl number" 

I paramatar p3 valua( dafault-"C" ), prompt* "character" 

I qualifier all ayntax*eat.placyl.all 

Define syntax eat.placyl.all 
paramatar pi 

parameter p2 valua ( default*"!" ) 

Define syntax eat.uni. syntax 
parameter pi valua( required ) 

paramatar p2, valua( required, type*unlts.typai ), 
prompt*" inches, feat, or matara" 

Define syntax ■et_unl_metera_ayntax routine aat.uni.matara 
Define syntax aat.uni.lnchaa. syntax routine aet_uni_inchei 
Define syntax aet.uni.f aat.iyntax routine sat.uni.faat 
I 

! Type definitons. 

( 

Define type unite.typaa 

keyword inches, syntax = set.uni.inches.syntax 
keyword meters, syntax * set_uni_metera_syntax 
keyword feet, syntax * eat_uni..f eat.syntax 

Define type set.typee 

keyword f ill.character , syntax * eet.f il_eyntax 
! keyword plate, syntax * aet.pla.eyntox 
! keyword cylinder, syntax * aet.cyl.syntax 

keyword output. device, syntax * eet.out. syntax 
keyword lnput.eet, syntax ■ aet.lnp.eyntax 
keyword units, syntax ■ aat.uni.ayntax 
ksyvord antanna.location , syntax * aet.ant.ayntax 
keyword coordinates, syntax * aat.coo.ayntax 

kayword pattern. cut, syntax * aat.pat.eyntax 

keyword acale.f actor , syntax ■ eet.sca.eyntax 

keyword window, syntax - eet.win.eyntax 



keyword keypad.mode, syntax = set.key.syntax, negatable 


Define type show.types 

keyword fill.character, syntax = ehow_fil_ syntax 
\ keyword plate, syntax = Bhcw.f il.eyntax 
! keyword cylinder, syntax = ehow.f il.eyntax 

keyword output.device, syntax c show_out_eyntax 
keyword input_eet, syntax * ehow.inp_syntax 
keyword units, syntax = show.uni.syntax 

keyword antenna.location, syntax * show.ant.eyntax 
keyword coordinates, syntax * show.coo.eyntax 

keyword pattern^cut, syntax = ehow_pat .syntax 

keyword scale.factor, syntax = show.sca.ayntax 
keyword window, syntax * show.win.syntax 
keyword keypad.node, syntax = show.key.syntax 
! 

! Verb definitons. 

I 

Define verb set 

parameter pi, valueC required, type*set_types ), 
prompt * “Set what" 

Define verb show 

parameter pi, value( required, type=show_types ), 
prompt = "Show what" 

Define verb help routine help.command 

parameter pi, value( type=$rest_of .line ) 
qualifier library, label = helplib, default, 
value( def ault=*sys$disk: [] shadow" ) 

Define verb spawn synonym del 
synonym $ routine dcl.comnand 
parameter pi, value( type=$reat_of.line ) 

Define verb exit routine exit.command 

Define verb shadow synonym s routine shadow.ccmmand 

! 

! End of file SHACMD.CLD. 

1 

! — 
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Keypad initialization file 

This file defines the initial keypad assignments for the interactive program at run time. It 
may be modified to allow customizing of the keypad interface. 

!♦ 

I SHADOW. KPD - 

I 

) Thia f 11a etarta op tha kaypad daflnltlona for tha SHADOW 
1 program. This la a uaer-def inabla fila and may ba altarad. 

I 

! Laazlo Takace, 20-DEC-1D86 
!- 
1* 

1 

t Sab op tha GOLD kay. 

I 

Daf /kay/noacho PFi "" /if*default /aet“gold 
Daf /kay/noacho PFI "" /if“gold /aet=default 


! 

! Halp k Shadow. 

! 

Def/key/tern/echo PF2 -Help" 
Daf/kay/tam/acho PF3 "Shadow" 


! 

! Sat op tha toggle keypad-mode kay. 

1 

Daf /kay/ tana/ a cho PF4 "Sat kaypad" /if=default 
Daf /key/ tarn/ ache PF4 "Sat Nokaypad" /if“gold 

t 

1 Daflna miecellaneoua kaya. 


Daf /key/echo/if “daf ault 
Daf /kay/acho/lf “default 
Daf /kay/acho/lf-daf ault 
Daf /kay/acho/lf “default 
Daf /kay/acho/if *daf ault 
Daf /kay/acho/if *daf ault 
Daf /key/echo/if “default 
Daf /kay/acho/lf “default 
Daf /kay/acho/if =def ault 
Daf /key/acho/if *daf ault 
Daf /kay/acho/if =def ault 
Daf /kay/acho/if “daf ault 
I 

Daf /kay/acho/if “gold 
Daf /key/acho/if “gold 
Def /kay/acho/if “gold 
Daf /kay/acho/if “gold 
Daf /kay/acho/if “gold 
Daf /kay/acho/if “gold 
Daf /kay/acho/if “gold 
Daf /kay/acho/if “gold 
Daf /kay/acho/if “gold 
Daf/kay/acho/if*gold 
Daf /kay/acho/if “gold 
Daf /kay/acho/if “gold 
I 


KP7 "Sat output * 

KP8 "Sat input " 

KP9 "Sat antenna" /terminate 
MINUS "Sat window" /terminate 
KP4 "Sat acale_factor"/termina 
KP6 "Set unite" /terminate 
KP6 "Set coordinata"/tarminata 
COMMA "Sat pattern" /terminate 
KP1 "Sat fill • 

KP2 "Set fill /plate“U,I) " 

KP3 "Set fill /Sequential" /ter 
KPO "Spawn" 

KP7 "Show output" /terminate 
KP8 "Show input" /terminate 
KPO "Show antenna" /terminate 
MINUS "Show window" /terminate 
KP4 "Show Bcale_factor"/termin 
KPS "Show unite" /terminate 
KPO "Show coordinata"/tarminata 
COMMA "Show pattern" /terminate 
KPi "Show fill* /terminate 

KP2 "Sot fill /cylinder“(l ,X) " 

KP3 "Show fill" /terminate . 

KPO "Spawn " 


I Enter kay la aame aa return. Period ie EXIT. 
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I 

D«f/k«y/t*na/»cho PERIOD "Exit* 
D«f/k«y/t era/echo ENTER "" 

! 

t End of SHADOW. KPD 
!- 



Chapter 11 

VAX Implementation 


This chapter describes the VAX/ VMS implemetation of the shadow program. The program 
has been split into two parts which are not used together. When the computer environment 
is the VAX/ VMS operating system, then the more flexible interactive mode described in 
this chapter should be used. Assuming that the required files have been properly restored 
from the distribution medium, there are procedures provided to accomplish assembly of the 
code with minimum user effort. 

11.1 Assembling the Code 

On a VAX/ VMS computer system, the following files are required to build and use the 
code. Both the interactive and non-interactive versions of the code can be run in any of the 
standard VMS ways, that is interactively, in a batch queue mode, or in a DCL subprocess. 
The actual building of the program takes place by invoking the procedure SHABLD.COM. 
The resulting executable file SHADOW.EXE can then be iun with the RUN command. 

SHABLD.COM A DCL command procedure to compile and link the files. This is the 
main assembly command file. 

SHACMD.CLD A VMS Command Language Definition file used define the interactive 
commands available. 

SHACOM.FOR The one include file for the code common blocks. The other include 
statements that appear in the code reference system libraries. 

SHADNI.FOR This contains the alternate code that is to be used when a non-interactive 
code is desired. 

SHADNW.FOR This contains code that is very much dependent on the facilities of VMS 
and has been seperated as such. It is an essential part of the interactive program. 

SHADOW.FOR This is the main body of the code and is common to both interactive 
and non-interactive versions. It is standard FORTRAN-77. 

SHADOW.HLB This is the VMS-format help library containing descriptions and exam- 
ples of interactive commands. 



SHADOW.KPD This is an initalization file used by the interactive program to equiva- 
lence certain functions to keys of the user’s choice. 

SHAPLT.COM This is a DCL command procedure invoking the NCAR graphics plotting 
software. 

SHAPLT.FOR This is the FORTRAN program which reads the output produced by the 
code and calls appropriate NCAR routines to make a plot. 

LABEL.DAT This file is read by the SHAPLT program in order to label the NCAR plots. 

11.2 Running the Code 

In order to run the code on VMS, the executable file created by the SHABLD procedure is 

necessary. The program is then run with the del RUN command. 

A typical interactive session with the program might consist of the following elements 

in their approximate order of execution. 

OUTPUT FILES Establish a set of output files with the SET OUTPUT command. The 
output files are of three types. Using the qualifiers of the SET OUTPUT command, 
any desired combination of output files may be generated. 

PROCESS AN INPUT Issue a SET INPUT command which reads the geometry from 
the specified file. In order for the program to process input sets, this command must 
be issued prior to any mapping commands. This command is usually executed once 
per session. 

DEFINE A WINDOW Using the SET WINDOW command, establish the angular range 
of interest. When the program begins, the size of the window is set to the full an- 
gular extent of the far-zone sphere. By specifying a smaller angular range, the user 
examines portions of the geometry in greater detail. 

DEFINE A SOURCE With the SET ANTENNA command, establish the location of 
the source. This command is one of the more frequently entered commands. It 
applies units and coordinate transformations that apply from the set units and set 
coordinates command. 

HIGHLIGHT ITEMS With the SET FILL command, the user may optionally cause 
parts of the geometry to be marked. This very useful! command may be executed at 
any time before a SHADOW command. 

GENERATE A MAP Cause the generation of a shadow map by issuing a SHADOW 
command. The shadow command is used after the user has set all desired parameters 
including the window and the antenna location. Without executing this command, 
the code does not calculate any shadowing. 

REPEAT ANY OF THE ABOVE Perform one or more of the above actions repeat- 
edly to obtain several maps. Most of the commands above may be executed in any 
order provided that the SHADOW command is executed last. 
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EXIT Terminate the shadow session with an EXIT command. An acceptable alternate 
mode of exit is eof, or control-Z. 

In order to make life easier by reducing the number of keystrokes required to enter inter- 
active commands, a facility is provided with which the user may associate whole command 
strings with a single key. When the shadow program begins executing, it.loads a set of 
predefined key definitions from a file. The user may edit this file to customize the keypad 
definitons to his/her liking. Since the file is loaded automaticly, the only restriction on its 
use is that it must exist in the current process default directory and must be accessible at 
run time. The details about these interface routines and what they do may be found in the 
VAX/VMS Runtime Library Reference Manual. 

11.3 Modifying the code 

Modifications to the source code by the user can be performed, but of course the out- 
come cannot be predicted beforehand. One predictable user modification is changing the 
program’s PARAMETER statements in the include file SHACOM.FOR. This would be 
necessary (and sufficient) to allow the program to deal with a greater number of plates or 
to construct a shadow map with greater resolution than the current maximum. 



Chapter 12 


Non- VAX Implementation 


This chapter discusses how to implement the code on a different computer than a VAX. The 
obscuration code, SHADOW, has been separated into tv/o main parts. The FORTRAN 77 
part, is not VAX dependent and is contained in a file called SHADOW. FOR. Most of the 
rest of the files are VAX dependent and are used mostly for interactive features. Although, it 
is possible that other types of machines will have similar routines that will allow interactive 
manipulation, it is not possible here to suggest how this may be accomplished. It is ac 3 umed 
that the easiest way to use SHADOW on a non- VAX would be to run it in a non-interactive 
mode. 

The main program in the default version of the file SHADOW. FOR is designed to be 
used with the non-FORTRAN 77 interactive version. A file called SHADNI.FOR contains 
a main program designed to be used in a non-interactive mode. It is listed in section 10.2. 
The main programs can be easily exchanged. 

Note that the only other part of the code is this part that is non-FORTRAN 77 is the 
INCLUDE statement. This has been retained because many computer systems support 
this statement. It is used to include the lines of code in the named file in the spot that 
it is called as if the lines had been in that spot. It provides a powerful means of putting 
commonly defined parameters used throughout the code in one place. In this case, it is used 
to include the file SHACOM.FOR which contains COMMON blocks and PARAMETER 
statements that define the dimensions of arrays that store the geometry. If it is desired to 
increase the number of plates, edges per plate, cylinders, or rims per cylinder, etc; they 
can be changed in one spot. Please see the listing for this file elsewhere in this manual. 
The INCLUDE statement can be easily removed by hardwiring the contents pf the file 
SHACOM.FOR into the text at the main program and the subroutines ABSCIN, CAPINT, 
CYLINT, CYLROT, DOCYLS, DOCYL, DOPLAS, DOPLA, GEOM, INITGF, PLAINT, 
SCAN, SCANC, SPANC, and WRTOUT. 

The code can now be compiled, linked, and run. The user communicates with the code 
through the non-interactive commands. This allows almost the same capability. The only 
information that does not have a command to change its behavior is the fill options and the 
input and output file names. The fill options can be accessed through the main program. 
The listing below has comment lines referring to the place that the fill operations may be 
changed. 

The input and output files can be named using assignments to the logical unit numbers 
for the given operation. The input file is read on logical unit # 5 . The echo file is written 



on logical unit #6. The printable shadow map is written on logical unit #7. The plottable 
shadow map is written on logical unit #10. On a VAX the ASSIGN VMS command would 
be used. 

Note that the user can specify more than one source. The non-interactive operation will 
run a shadow map for each source individually. The receiver will not be counted. If the 
user wants to look at the shadow map for a receiver, they should be treated In this code as 
if they are a transmitter (source). 



Chapter 13 


NCAR Plot Program 


The shadow map can be plotted using graphical means. The SHADOW code will write a 
unformatted file that can be used for interfacing to special purpose plotting programs. It 
writes this file on logical unit #10. In the interactive mode the file name is specified by 
using the SET OUTPUT commands /PLOTTABLE option. In the non-interactive mode 
the file name is specified using an assign statement. 

There are many ways to plot the resulting shadow map. Presently, there is little stan- 
dardization between system for plotting. Thi3 may change with the advent of GKS, but 
for now, it can not be assumed that different organizations have compatible plotting capa- 
bilities. This chapter suggests one possible means to plot the output. It uses the National 
Center for Atmospherics Research (NCAR) graphics package [5], It has been tried on The 
Ohio State University ElectroScience Laboratory’s computer system and NASA Langley 
Research Center’s computer system, both VAX 11 /780s, with almost the same results. It 
is still not possible, however, to assume that it will run everywhere the same way. 

The program is listed for the convenience of possible users, knowing that some conversion 
may be necessary. The code is written in basic NCAR subroutine calls. Consult your local 
system information on how to link to your systems NCAR graphics subroutines. In addition, 
it is not written completely in standard FORTRAN 77. There are a few VAX extensions 
used, such as some of the options in the OPEN subroutine and some comment lines use the 
non-standard exclamation point. These changes will be minor. 

Note that the plot of the shadow map will have grid lines. There is another option given 
for a map without grid fines. This can be used by commenting out the call to subroutine 
GRIDL, and uncommenting the call to subroutine PERIML. 

The file name containing the maps to be plotted are placed in the first line of a file named 
LABEL.DAT. The LABEL.DAT file also contains the header information to be place at the 
top of the plot for future identification and reference. The code will loop through the 
specified shadow map file until all the shadow map contained in the file are plotted. A 
sample version of a LABEL.DAT file is given after the code listing. It shows a shadow map 
being read off of file FOR010.DAT which contains two shadow maps. 
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Listing of code to plot shadow map using NCAR: 


0001 

0002 

0003 

0004 
0O0G 
0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 


PROGRAM PLTOSU 

DIMENSION XDUM(2) , TDUM(2), NC(6) 

INTEGER COLS, ROWS 

CHARACTER* 80 LABELS (6) , XLAB, TLAB, INF 
CHARACTER* (*) IFORMA. TFORMA 
BTTE BITE 
C 

C These are character parameters for the plotting output. 

C 

PARAMETER ( IFORMA * ’(FO.!)' ) 

PARAMETER ( TFORMA - '(F6.1)’ ) 

C 

DATA XLAB /* PHI 7 
DATA TLAB /’ THETA 7 
DATA NC / 6*72 / 

C 

C Road a header from FOROOS. Opan the file raadonly ao that othar naara 
C can road it without naadlng write accaaa to the file. 

C 

OPEN ( UNITES, TTPE* ' OLD ’ . READONLT ) 

READ ( 6, FMT-’ (A) * ) INF 
C 

C Read the header Info from the data file. Opan It nnfomattad. 

C 

0PEN(UNIT-10, FILE-INF, TYPE-’OLD* .FORM- 'UNFORMATTED* , READONLT) 

13 READ ( 10 , END-9999) COLS , THE! ID . THET2D , RESTHD 

READ(10, END-9999) R0WS,PH1D,PH2D,RESPHD 

ISCX - -2 
ISCT = -2 
XMIN » PH1D 
XMAX » PH2D 
TMIN * -THET2D 
THAI * -THET1D 
NDX - 4 
NTX * 2 
NDT * 4 
NTT - 2 
C 

C Road the label Info for thio plot. 


0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 
0060 

0051 

0052 

0063 

0064 

0065 

0066 
0067 


C 

READ ( 6, * ) LABELS(l) 

READ ( 6, * ) SX, ST, SZ, SPRX, SPRT, TRX 
READ ( 5, * ) ZTHEI, ZPHI, ITHET, XPHI 
C 

C Format the labele for the plot (via internal write atatementa.) 
C 

WRITE (LABELS(2) , 1100) SX, ST, SZ 
WRITE (LABELS (3), 1200) ZTHET, ZPHI, XTHET, XPHI 
WRITE (LABELS (4), 1300) SPRX, SPRY 
WRITE (LABELS (5) , 1400) TRX 
C 

C CALL INFOPLT (2 , XDUM , TDUM , XMIN , XMAX, YMIN.YMAX , ISCX , 

C * NDX , NTX , ISCY , NDT , NTY , XLAB , 5 , TLAB , 7 , 

C * 6 , LABELS , NC , 0 , -1 , 1) 

C 


0058 C Define a mapping window from data to plot 
0069 C 


0060 


CALL SET 


0061 * 

0062 ♦ 

0063 + 


0 . 12 , 

0.84, 

0.12, 
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! Do a linear-linear plot. 


0064 

0065 

0066 

0067 

0068 
0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 
0070 
0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 
0096 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 
0126 
0126 
0127 


+ 0.84, 

♦ XHIN, 

♦ XMAX , 

♦ YMIN, 

♦ YNAX, 

♦ 1 ) 

C 

C A call to labmod night help the output look nicer. 
C 


CALL LABMOD ( 


XREF( XFORMA ), 
XREF( YFORMA ), 
LEN( XFORMA ), 
LEN ( YFORMA ), 
1, 

1, 

0, 

0, 

0 


C Put labels on plot 
C 


XMID=0 . 6* (XMIN+XMAX) 

YMID=0 . 5* (YMIH+TMAX) 

XDEL* (XMAX-XMIN) /36 . 

YDEL=(YMAX-YMIH)/36. 

XL=XMIN+0. 6*XDEL 
DO 100 IL=1 ,5 

TL=TMAX+ (6-IL) *YDEL 

100 CALL PtfRIT ( XL, YL, XREF (L ABELS (IL)) ,NC(IL) , 1,0,-1) 
C 


C Define the perimeter of the plot wit a grid. 
C 


CALL GRIDL ( 


4 

NDX, 

! Number of MAJOR 

4 

NTX, 

! Number of MINOR 

4 

NDY, 

! Number of MAJOR 

4 

NTY ) 

I Number of MINOR 


C 

C Theta and Phi Axle Labele 
C 

TB0T=YMIII-2. 6+YDEL 

CALL PWRIT(XMID . YBOT , XREF (XLAB) , 5 . 1 , 0 . 0) 
XSID-XMIN-6 . O+XDEL 

CALL PY/RIT (XSID , YMID , XREF (YLAB) ,7,1,90,0) 
!C 


!C Uee thie call if you don't want grid lines. 
1C Define the perimeter of the plot. 

»C 

f CALL PERIML ( 

! + NDX, 

! + NTX , 

! + NDY , 

! + HTY ) 

C 

XIIIC - 1.8 
YIKC =* 0.9 
ISYM = 1 

C 


C Loop on rows then on columns. 
C 


DO 10 J = 1, ROWS 
X = RESPHD* ( J-l) +PH1D 


\ Humber of MAJOR 
( Number of MINOR 
! Number of MAJOR 
J Number of MINDR 





i 


r 



1 

i 
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0128 


DO 20 I - 1, COLS 



0120 


READ ( 10, END-000 ) BTTE 



0130 


IF ( BTTE .NE. 32 ) THEN 



0131 


T - -(RE3THD*(I-1)4THET1D) 



0132 

C 




0133 

C 

CALL PLTSTMC X, T, ZINC, TINC, 

I STM ) 


0134 

C 




0136 

C Plot ths symbol on ths pags. 



0136 

C 




0137 


CALL PWRIT( 



0138 

4 

X, 

! X coordinats 


0130 

4 

T, 

! T coordinats 


0140 

4 

BYTE, t Ths charactsr to plot 

0141 

4 

1, 

1 Vrlts ons charactsr 

0142 

4 

o, 

! Uss ths dsfault 

sirs 

0143 

4 

o, 

1 Uss ths dsfault 

orlsntat 

0144 

4 

0 ) 

I Uss ths dsfault 

csntsrin 

0146 


END IF 



0146 

20 

CONTINUE 



0147 

10 

CONTINUE 



0148 

C 




0140 

C "Fraas* ths NCAR output. 



0160 

C 




0161 

000 

CALL HUME 



0162 


GOTO 13 



0163 

c 




0164 

C Clots ths Input fils and stop. 



0166 

C 




0166 

0000 

CLOSE ( UN IT- 10 ) 



0167 

CLOSE ( UNITES ) 



0168 


STOP 'NCAR/Shadow plot complstsd. 

1 


0160 

c 




0160 

C Formats go down hsrs. 



0161 

C 




0162 

1100 

FORMAT c ANTENNA LOCATED AT \ 

,2(F7.i. V).F7.1) 


0163 

1200 

FORMAT C ANTENNA ORIENTATION: 

* ,3(F7. 1, ' , ,F7. 1) 


0164 

1300 

FORMAT C SOLAR PANELS ROTATED 

\F7.1, V.F7.1) 


0166 

1400 

FORMAT C THERMAL RADIATORS ROTATED \F7.1) 


0166 


END 
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Listing of sample LABEL.DAT file: 

FOR010.DAT; 

• SHADOW TEST1 FOR CASE AN5S1 ’ 

25. 15. 256.5 0. -62. 0. 

0 . 0 . 00 . 0 . 

' SHADOW TEST2 FOR CASE AN5S1 ' 

25. 15. 256.5 0. -52. 0. 
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